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1.0 ABSTRACT 


This formatter was written to format Winchester | 
drives attached to the RQDX3 disk controller. All new drives 
being attached to the RQDX3 controller must be formatted 
so that the drive can be brought online for use by a MSCP 
server or in simpler terms to be used Phen operating system. 
This disk formatter is similar to the RQDX1/2 disk formatter in 
that the same standard DUP dialog is used and similar 
standard formatter questions are passed by the controller 
to the host user. The formatter is different from the 
RQDX1/2 disk formatter because a table of disk formatting 
parameters is passed to the controller. The RQDX1/2 
disk controller already has these tables in its firmware. 


. The format program actual has 2 controller run programs in it. 
If the controller is an RQDX3, the program will down line load a program 
into the controller which will identify the drive according to its 
cylinder size. Since each of the DEC drives have a different cylinder 
size it will know which drive it_is and therefore which parameter or 
UIT table to pass to the controller. The second program is already 
contained in the microcode. This peres called “FORMAT” does the 
actual formatting of the drive. The host program just passes information 
back and forth to the controller local program. 


The UIT, Unit Information Table is picked by the down line loaded 

auto sizer program (AUTOSZ). After the drive is known the format 
program will be run on the controller. This format er ram (FORMAT) is 
very similiar to the RQOX1/2 format program. The only difference as 
stated before is that the UIT will be down line loaded into the drive 
if the down line load pases ren is asked. Every time the drive is 
brought on line the UIT table which was placed on the drive by this 
formatter program will be transfered into the controller with all 

the drive parameters. As long as the UIT still exists on the drive 

it does not have to be passed in by the host user. Only if the user 
requests to “Down line load” information to the controller will the UIT 
table be passed to the drive. Note the RX33 floppy drive does not use 
the UIT tables. The RX33 drive parameters are stored in the firmware so 
a table wasn't necessary. 


The UIT table contains information about the drive such as size, 
number of tracks per surface, etc. This information is alre 

know for certain DEC acquired Winchester drives. These tables are 
usually different for the different drives manufactured. CAUTION - 
do not use non DEC drives you are liable to destroy Format and Data 
stored on them. 


All th not a goal of the diagnostic this program can be used to 
run standard DUP dialog local programs such as “DIRECT”. These local 
programs are stored in the firmware. 

2.0 HOW TO RUN IT? ; 


2.1 HARDWARE REQUIREMENTS 
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SEQ 0005 


. An RQDX3 disk controller and one or more Winchester or RX33 
drives configured into a Q-bus PDP-11 system. 


2.2 SOFTWARE REQUIREMENTS 


This diagnostic was written using DRS the Diagnostic 
Supervisor. The diagnostic is expected to be run under XXDP 
diagnostic operating system. It is also possible to run the 
formatter under APT. 


2.3 QUESTIONS ASKED AND THEIR ANSWERS 
2.3.1 HARDWARE QUESTIONS FROM DIAGNOSTIC SOFTWARE 


The diagnostic is a standard DRS program with the standard DRS commands. 
Below I have a script of the ot asked an the answers to the 
initial DRS questions. The Default value for the IP address is 172150. 
This is standard configuration address for the first MSCP controller 
on a system. Any other MSCP controllers on the system will have to be 
in the floating address space of the I0 page. The default vector 
address is 154 any other value between 0-7/4 could be used but is not 
suggested. If you want the default answers then just hit the “return” 
key on the keyboard. The Formatter will run an auto sizer to determine 
the proper drive characteristic table to give to the controller. This 
auto sizer will figure out how many cylinders on the drive and through 
a small look up table we decide which table to down-line load to the 
RQDX3 controller. The user will have to enter a drive number and a 
serial number. After this a warning message will appear asking if 

the user wants to proceed. The default is no so the/ user must type “Y” 
in order to format his drives. 


Typical Diagnostic Script: 


boot up XXDP 
.RUN ZRQC?? 
ZRQCEO.BIN 


DRSXM-AO 
ZRQC-E-0 
RQDX3 Disk Format Utilit 
Unit is RDS1.RD52,RDS3,ROS4 ,RX33,RD31,RD32 Please type yes to "Change HW?” 
peters Adérene is 141656 
> 


Change HW? Y 
+ Units y £ 


IP Address 172150 ? <rtn> 

Vector Address 154 ? <rtn> 

Logical Drive (0-255) 0 ? <rtnm> 

Drive Serial Number(1-32000) 12345 ? <rtn> 

sse%% WARNING all the data on this drive will be DESTROYED «ss 


Proceed to format the drive N ? <Y><rtn> 
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2.3.2 UIT TABLES 


The UIT tables are stored in this pees, There are 10 large data 
tables formed in this diagnostic that contain the drive parameters for 
certain DEC drives. There are «| 6 RQDX3 Winchester drive 
manufactured. So only 6 of the tables contain any information. The 
others are there for future drives. The AUTOSZ program ran previous 

to the FORMAT program will determine what type of drive is to be 
formatted and which table to pass to the disk controller, Once in the 
disk controller the table will be written to the disk drive. This table 
should never be erased unless the drive is broken or format is run 
again. 


NOTE this is only for the RQDX3 disk controller and NOT for the RQDX1/2. 
Unit Information Tables listed: 


Enter UIT: 
UIT Drive Name 


. See ee ene ee ee ee eee ee 
RDS2 part # 30-21721-0 ight on front panel) 
wee part # 30-23227-0 ights on front panel) 
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2.4 PROGRAM MESSAGES AND FORMAT COMPLETION 


When the format finally starts a “Format Begun” mess will 
ar and in the end a “Format Complete” message will appear. 
There may be 60+ minutes between the messages. If the extended 
-* messages are allowed 3 “Verification Pass XXXXXX Begun” messages 
may appear. Theses messages tell when the controller checks the 
blocks for bad spots in the disk surface. These passes take several 
minutes each and touch all the cylinders on the drive. At the end of 
the format if extended messages are on a table will be printed out 
reporting the results of the format. Usually there are several bad 
ts on a disk. This is very common and is NOT a mistake. These bad 
blocks are revectored to new areas on the disk. If the manufacturer's 
bad block information is used which is uoyelay the case. There will 
only be 1 verification pass. After the drive formats the autosizer 
program will be run again. This will park the heads on the inner most 
cylinder. Some manufactures have a en area where the heads are 
placed before the drive is physically moved or shipped to the customer. 
f you plan on moving your system you should backup your system and 
run the formatter to put the heads on the parking area. This will 
help prevent damage to the heads and formatted data surfaces. 


Completion Report: ' 
XXX Revectored LBNs 


XXX Primary revectored LBNs 
XXX Secondary/tertiary revectored LBNs 











| 
| 
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XXX 
XXX 
XXX 
XXX 


Bad Blocks in the RCT area due to data errors 
Bad Blocks in the DBN area due to data errors 
Bad Blocks in the XBN area due to data errors 
Blocks retried on check pass 


FCT was not used 
Format Completed 


RQDX Drive xxxx finished ’ 
ass aborted for this unit 
RQC EOP 1 


0 Cumulative errors 


Note that every time the disk formats sucdessfully, the program 
hy ny UNIT. This is purposely done so one doesn't reformat 
it twice. 


RX33 diskette formatting is a little varied in that several extra 
questions will be asked. These questions where installed mainly to 
protect the person trying to format a diskette on the same drive as 
their boot media. If the drive doing the formatting is not the boot 
drive then please ignore the warnings. 


WARNING - Remove boot diskette if in drive. 
Insert a diskette to be formatted & press <RETURN>. 


Format Complete 
FCT was not used 
Format completed 


Do you want to format another diskette? 
If boot drive, reinsert boot diskette & press <RETURN>. 
RQDX Drive xxxx finished 

ass pervs for this unit 


RQC EOP 
0 Cumulative errors 


2.5 EXECUTION TIME sy , ; 

The execution time for ee Seaenere ss varies greatly according 
to the size of the drive being formatted. If an error in the 
drive configuration or state such as a write protect switch 
being on, an error will occur right after all the questions have 
been answered. If there are no errors, the formatter will take 
between 5 minutes to 60 minutes depending on the drive being formatted. 
A RDS1 takes around 10 minutes to format sopending on the wa 
questions are answered. A RDS2 take between 10 & 25 minutes to format 
and a RD53 a very long time to format. The progres checks continuously 
to make sure the controller is still working. If no progress is 
indicated by the progress indicator a timeout error will occur. If 

the disk controller goes off line for some unapparent reason the 
formatter will know. Either way if one checks the pint on the : 
Winchester to see if it is lite or check the READY Light of the drive 
for a flickering light, this will tell the user that the formatter is 


—— 


Ii 
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error # 


1,HRDO 


2,DF3 


3,SFTO 


4,0F2 


5,DF1 


6,SFT1 


7,DF4 


8,SF100 
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working. When the formatter completes a “Format complete” message 
will appear on the terminal. 


3. ERRORS 


There are a pes of errors possible while formatting a drive. 
First the system has to be configured right. The drives have to be 
jumpered right along with the disk controller, If you get an error 
read the entire error message carefully. See if there is something 
simple wrong such as loss and misconfigured drives before calling FS. 
This is usually the case very seldom do the drive or controller 
break. So check the cables, check the jumpers, try several times and 
if you still can't format then call Field Service. 


Comment Problem 
;unknown response , 
Not a DUP standard local program or Data Error in local program 
execution. 


;Fatal DUP type returned : 

Error with Format program check detailed error message more then 
likely this will be a drive error or drive configuration error. 

If the detailed message has a GET STATUS error. [his means that the. 
drive ow asked to format had the wrong status. Example offline, write 
protected, RX50 instead of an RDxx, power plug is loose, jumpers are 
wrong. 


;Can‘'t do remote programs” 
Wrong controller or bad microcode controller error. 


;"already active will do an ABORT cmd” 

Wrong controller or bad microcode controller error. The controller 
was expected to be in an idle state but was found in an active state. 
Try again and if still there check for ECOs and new Microcode. 


;wrong step bit set after ag 
Controller initialization error. Controller is broken or at 
wrong address and something is in its place. 


scontroller timeout — hard init 
Controller error, controller is slow or it can't interrupt the 
Q bus. Controller is dead. 


;wrong model #,wrong controller y 

This is not really an error. You are using the wrong formatter 

pores to for the wrong disk controller. It still might work 
t no guarantees. 


;NXM trap at controller IP address 
Wrong configuration address of the controller check for 
wrong jumper settings. 


;Unexpected interrupt : 
Somet ing in system interrupting or late interrupt. This 
could be the system clock or an interrupt from an IO port. 


Ji 
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9,DF 12 
10,0F 11 


11,0F13 


12,0F 14 





Page 4-5 
ee SEQ 0009 


If the interrupt is at address 4,10 probably a software error 
Try again. 


;Fatal SA error . ; 
Controller crashed check detailed error message either dead 
controller or configuration error. 


;Bad response packet 
inappropriate command or soft controller error check 
detail message for more info. 


3NO progress shown after cmd timeout . > 
The controller didn't indicate progress which means that it is 
working very slow or is stuck. Leave the a te running for a 
couple minutes. If this message repeats then the drive is likely 
broken. If you just get 1 mess it is possible the controller 
took to long to revector a block. This is probably a drive error 
or a drive with many revector blocks. : 


;no iterrupt after get dust status command controller dead 

The controller got lost. The program running in the controller 
t out of -_ with the host program. This could mean several : 
ings. Check for a loose controller or board loose cables. ber Be exces, 
ain after rebooting the system. If you still get the error check 

the controller. 


r 
4. PROGRAM DESIGN AND FLOW 


The program is kind of simple. There is only 1 command ring and 
1 se ring. For every command send there is expected 1 response. 
If the command sent times out a “Get DUST Status” command is sent to 
check on the controller's progress. This usually happens when the | 
actual format is being done. The rest of the commands pass information 
back and forth from the user to the controller without ever Sinigg 
out. This program is written according to UQSSP and DUP specs. This 
specs can sogeires from NEWTON: :ARCHSFTLES:. At the start of the 
program the INIT sequence brings the controller into the higher 
protocolstate of nyning DUP commands. Once initialized the controller 
potest o GET DUST STATUS command to make sure the controller is in an 

e state. 


If idle which it should be the program asks for a progres name to run. 
The EXECUTE LOCAL PROGRAM command is executed whic ould start the 
program into the DUP dialog loop. This dialog is described in the DUP 
spec. Here several SEND DATA and RECEIVE DATA commands are executed to 
ask questions and supply information on the success and conoletion of 
the local FORMAT program running in the RQDX3. 


A pass will occur when the formatter has completed formatting 
all the logical units. 
5.0 GLOSSARY 


ZRQCEO follows the module name format described in the 





Ki 
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420 

421 

422 

423 
' 


' of loose cables etc. Also added a 


XXDP Programmer's Guide. 
RQ--- Identifies the hardware and thus the module. 


--C-- Distiguishes between two or more different 
diagnostics for the same generic device. The 
sequence A, B, C, ETC. must be used for 
each additional diagnostic. 


---E- Specifies the module revision. 
----0 Specifies the number of patches. 
7.0 BIBLIOGRAPHY 


UQSSP (NEWTON: : ARCHSFILES: ) 
MSCP (NEWTON: : ARCHSFILES: ) 

DUP . (NEWTON: : ARCHSFILES: ) . : : 

ORS programmers manual (JON: :disk$usert:idi poet 
XXDP programmer guide (JON: :disk$userl:[diaglib.xxdp]) 


8.0 REVISION HISTORY 


Revision B contains an autosizing routine which will | 
size the drive instead of having the user pick the drive table. 
This will keep people out of the “ene and lower the changes 

: UTO mode which allows no manual 
interventions. Set the default p-table to format drive 0-3. 
Since floppies are always the last drive in the system this is 
gauranteed to format all the drives in the system and error when it 
gets to the floppy. 


Revision C contains several changes. First RX33,RD31,RD54 support was 
added. The RX33 boot device questions where added. The autosizer was 
fixed to also size for floppies. The Autosizer errors are now reported 
to the host along with what drives are located on what units and there 
drive size or floppy type- The default question in manual mode was 
changed so that if an FCT (factory control table) _ is not present 

“Bad Block Information” it will not continue on. This was changed for 
all drives except the RD51 which doesn't have a FCT table. Also there 
was a small change to the autosizer which affects version C1 _hardware 
etched RQDX3 boards specially the ones without the LUN ECO. The 
autosizer now run in the beginning and the end. A head parking feature 
was added so that RD31 and KD32 heads would be parked in the inner most 
cylinder upon completion of the program. The autosizer utility was 
updated to display a little more information. 


Revision D replaces the head parking feature wily an MSCP test feature. 
This feature performs a series of reads, writes, and compares to verify 
that the media has been formatted correctly and that there are no 
defective blocks on the media. If a defective block is found, the 
media should be orenptty discarded to preserve the integrity of the 
data stored on it. : 

During the formatting of an RDxx, this formatter will generate a format 


his revision also has provisions to format an RD32. 


SEQ 0010 


Ll 
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oo report (for RQDX3 uCode version 2 or higher) which displays 

he progress made by ‘the formatter at one minute intervals, Finally, 
code was added to correct the RQDX3 uCode version 2 inability to locate 
the FCT during the FCT seek segment of the format. 


Revision E implements fixes to known problems. 





SEQ 0011 


ee 


SEQ 0012 


-MCALL SVC 
svc 


-ENABLE ABS,AMA 
000052 .752 r : - 
010000 .word biti2 extended monitor in XXDP 
002000 . 72000 


BGNMOD MOD1 
POINTER BGNDU,BGNCLN, BGNPROT , BGNSETUP 
HEADER ZR 6 


DISPATCH 
DESCRIPT <RQDX3 Format Disk Ut x 
qi 002160 DEVTYPE <RD51,RD52,RD053,RD31, UEbSa. X32,RD32 ##* Answer "Y" to “Change HW (L) ?” #&&> 








480 002274 


486 
487 002310 
488 


172150 
000154 
000000 
030071 
100000 
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BGNHW DFPTBL 
. WORD 
. WORD 
. WORD 
. WORD 
.word 
ENDHW 


172150 
154 


000000 
012345. 
100000 


—— 


SEQ 0013 


;IP address 

;Vector address 

yunit zero as Minn drive 

;serial n 

;auto sizer="yes’, warning="no” or don't 
continue 


“as 
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490 002310 


EQUALS 


; BIT DIFINITIONS 


; EVENT 


; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
IN SECOND STATUS WORD 
100000) S$ co S ISSUE 
(040000) RESTART COMMAND WAS ISSUED 
(020000) CONTINUE COMMAND WAS ISSUED 
; (010000) A NEW PASS HAS BEEN STARTE 


100000 
40000 


FLAG DEFINITIONS 


EF .START== 32. ; 
EF .RESTART== ok. ; 
EF .CONTINUE== 30. ; 
EF .NEW== 29. ; 
EF .PWR== 28. i 


; PRIORI 
PRIO7== 


TY LEVEL’ DEFINITIONS 


D 


(004000) A POWER-FAIL/POWER-UP OCCURRED 








000010 








LOT== 10 
ADR== 

IDU== 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT== 1000, 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 


HOE== 100000 .,' 
.sbttl Literals ’ 


——— 


SEQ 0015 


3+ 
; Mask values to mask out specified flags 


UITothr = 10 


8 

xo =, 

---a 
oon enon 

~ 


888888 


00 
+ 
; Opcodes for MSCP commands 


op.onl = il 


3+ 
; Message type masks 


ss Question = 1 
DefQuest = 2 
inform = 3 


;UIT other 
:if UIT doesn't exist 


;Maximum Number of drives 
;DUP connection ID 

;MSCP connection ID 

;model number for RQDX1 
;model number for RQDX3 
;stand- alone modifier 
s;Number of retries UDC 
sLine Clock (KW11-L) Vector 


- GJK 
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| Literals 
535 000004 terainet = 4 
| 536 000005 ftlerr = 5 
| ee 000006 specl = 6 
177760 type =: 177760 
540 170000 msgnbr = 170000 


3¢ 
;Auto sizer literals 


; Interrupt Service Routines and Priority Levels 


100002 i$ude = 100002 ; Pointer to UDC interrupt handler 
100006 igelk = 100006 ; Pointer to Clock interrupt handler 
100016 i$sec = 100016 ; Pointer to Sector Done Interrupt handler 
ps0 = ; Allow Any Interrupts 
000340 ps7? = 340 ; Inhibit Interrupts 
; CSRs 
140002 rw$pll = 140002 
40004 wsfpl = 140004 
140006 r$fps = 40006 
140010 r$dat = 140010 
140012 rscmd = 140012 
140020 wsdat = 140020 
140022 wsemd = 140022 
; RECEIVE DATA ASCII reply message types: 
000020 .a.typ = 20 ; ASCII Mess T Multiplier 
000°20 “8. que . 1*.a.typ ; Question peti — 
00-040 .a.def = 2*.a.typ ; Default question 
.a.inf = 34.a.typ ; Information 
000100 .a.ter = 4+.a.typ ; Termination 
000120 .a.fat = 54.a.typ ; Fatal error 
; RECEIVE DATA binary message types. 
000140 .b.spl = 6*.a.typ ; Special 
; Status Codes returned by SIZER (Success is zero) 
000001 erudon 2 1 ; UDC Never Done 
000002 eruint > 2 ; UDC Never Interrupted 
000003 ersek0 2 3 ; Couldn't Restore to Cyl 0 
; UDC Commands 
000000 u.res = 0 ; Reset 9224 
000001 u.dd 2 1 ; Deselect Drive 
000003 u.rd . 3 ; Restore Drive 
000005 u.sil 2 5 ; Step In One Cylinder 
000007 u.sol S 7 ; Step Out One Cylinder 
u.srd = 44 ; Select Winchester Drive 
000054 u.SPx : 54 ; Select Floppy Drive 
000100 u.srp * 100 ; Set Register Pointer 














E2 
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Literals 


000300 rd.mode = 300 

; Literals Used by Line Clock 
177546 LKS ze 177546 
000100 LKSvet == 100 


; RD Mode 


;LINE CLOCK --- bit 6 enables interrupts 
sLine Clock Vetr Addr -- pri 5 or lower 


Fe 
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600 .sbttl Macro Definitions 
601 
8 
oa ; Execute a GET DUST STATUS command and the check the response. 
606 
607 
608 000000 A=0 
609 000001 B=1 
610 -MACRO GETDUST ;Execute a GET DUST STATUS command 
611 B=B+1 ;increment the CRN number 
612 gdstmp \B :call variable B as if it were a 
613 snumber (\) 
614 .ENDM 
615 
616 -MACRO GDSTMP 8B 
617 .list 
4 GDS'B: bit #bitl15,cmdrng+2 ;test ownership of ring make sure we own 
3! 
620 bne GDS‘B sif we don't own it wait until we do 
621 MOV #14. ,cmdlen sload length of packet to be sent 
622 movb #0 ,cmdlen+2 sgeee at ong type and credit 
623 movb #dup.id,cmdlen+3 connection ID 
624 ine cmdpak i new CRN 
625 elr emdpak +2 
626 clr emdpax +4 
£58 a ton. 99515 mdpak +10 ;load up ode 
mov op ¢c - oad up ope 
o¢° elr cmdpak :no modifiers 
631 mov #RFD'B,@vector :;New vector place 
632 mov érsppak, rsprng ; load response packet area into ring 
633 mov #cmdpak ,cmdrn sload command packet area into ring 
634 mov #140000, RSPRN +2 :Port ownership bit. 
635 mov $b it15, CMDRNG +2 
44 jsr pc, POLLWT ;Go to poll and wait routine. 
638 {RRRRARREREARAERAERARRARRRRRRRRRR RRR RERRRRAER RRR RE REE ERR ERE REE 
639 
eat cp hy SP Wen ekee ta (4), pol 
»Sp ix stack for interrupt (4 lwt 
642 : isubrtn (2) ‘of 
643 mov #intsrv,@vector ;Change vector 
644 jsr pc ,RSPCHK ;Go to routine that will check on 
645 ;the response recvd from the mut. 
646 sit will check the cmd ref 
647 : snum, the endcode and status. 
648 -nlist 


649 .ENOM 


SEQ 0018 
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Macro Definitions 


RFD'B: 
add 


mov 
jsr 


-nlist 
.ENDM 





#6,Sp 


tintsrv,@vector 
pe, RSPCHK 


: Execute an ABORT command and then checks the response. 
-MACRO ABRT ;Execute an ABORT command 
B=B+1 ; increment the CRN number 
abrttmp \B ;call variable B as if it were a 
;number 
.ENDM 
.MACRO re B i 
.lis 
ABRT‘'B: bit #bit15,cmdrng+2 bemag aati of ring make sure we 
;OWn i 
bne ABRT'B ;if we don’t own it wait until we do 
mov #14. ,cmdlen ;load length of packet to be sent 
movb #0, cmdlen+2 ;load msg type and credit 
movb dup. id,cmdlen+3 s;load DUP connection ID 
ine cmdpak s;load new CRN 
elr cemdpak +2 
clr cmdpak +4 
elr cmdpak +6 
mov #op.abrt,cmdpak +10 sload up opcode 
clr cmdpak +12 no modifiers 
mov #RFD'B,avector ;New vector place . 
mov #rsppak ,rsprng ;load response packet area into ring 
mov sracees -gaerre sload command packet area into ring 
mov #140000 ,RSPRNG+2 :Port ownership bit. 
mov #bit15,CMDRNG+2 
jsr pc, POLLWT :;Go to poll and wait routine. 


fA AAAAAKRAAKAAAARRE EEA KARRRKEAAAAKEAAE EERE REREREEEAAEAERAKEEEREAERAEKE 


sIntr to here. 

ifix stack for interrupt (4), pollwt 
s;subrtn (2) 

;Change vector 

:Go to routine that will check on 
;the response recvd from the mut. 
;it will check the cmd ref 

;num, the endcode and status. 


SEQ 0019 


| He 
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.ENDM 
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SEQ 0020 


Execute a Send data cmd in dup and then check the response 
for the proper info 


SENDDAT SPLACE,SBYTCN 
\B, SPlace, Sbytcn 


we B, Splace,Sbytcnt 
bit #bit15,cmdrng+2 


bne SOT‘B 

Mov #34,cmdlen 
movb #0, cmdlen+2 
movb 


se ngs emdlen+3 
ak 


mov #op. oan, Sais 
= ey &. Sali k+14 
mov cnt ,cmdpak + 
si § re <a 20 
mov ace,c - 
cir cndpak +22 


Mov ~ os yreete 
mov rsppak ,rsprng 
MOv Scmdpak .cmdrn 
mov #140000, RSPR — 
mov $bit15 5 GORING 

jsr pe ,POLLWT 


B: : 
add #6,S0 


Mov #intsrv,dvector 
jsr pe, RSPCHK 


nlist 


;Execute a Send Data command 

S tamrenant the CRN number 

call variable A,B as if it were a 
;number 


an Serene of ring make sure we 
;Own | 

;if we don't own it wait until we do 
s;load length of packet to be sent 

; load neg type and oes 

;load DUP connection I 

;load new CRN 


:load up opcode 
7no modi taea 


s;load address of buffer descriptor 


;New vector place 

;load response packet area into ring 
; load command packet area into ring 
;Port ownersh ip bit. 


;Go to poll and wait routine. 


5 RRRRAAAEARAEAAREEREAEEEERAEEAEEAREREERERREAAAEAREREREEEEAAEAEARAREREAAE 


RFD! 


:;Intr to here. 

fix stack for interrupt (4), 
;subrtn (2) 

;Change vector 

;Go to routine that will check on 
ithe response recvd from the -* y 
zit will check the cmd ref 

imum, the endcode and status. 


pollwt 


_MAIN. MACRO VO5.03 Thursday 15-Jan-87 14:33 Page 11 
| Macro Definitions 
| 756 





757 
| 758 i+ 
ie ; Execute a Receive Data command and the check the response. 
16h | 
763 .MACRO RECVDAT Rplace,Rbytcnt ;Execute a Send Data command 
764 B=B+1 ;inerement the CRN number 
765 recvtmp \B,Rplac<,Rbytcnt ;call variable A,B as if it were a 
7 ;number (\ 
3 .ENDM 
769 LMACRO RECVTHP B,RPLace Rbytent 
.lis 
1 RCD‘B: bit #bit15,cmdrng+2 eet SES of ring make sure we 
sown i 
773 bne RCD'B ;if we don’t own it wait until we co 
774 mov #34,cmdlen sload length of packet to be sent 
775 movb #0, cmdlen+2 ; load og type and credit 
776 movb édup.id,cmdlen+3 ; load connection ID 
777 ine cmdpak load new CRN 
778 clr cemdpak +2 
779 elr cmdpak +4 
7 elr cmdpak +6 
781 Mov #op.rec,cmdpak +10 ;load up opcode 
782 clr emdpak +12 ino modifiers 
783 mov Rbytcnt, cmdpak +14 
784 elr cmdpak +16 
785 mov Rplace,cmdpak +20 :load address of buffer descriptor 
786 elr cmdpak + 
787 elr cmdpak +24 
788 clr emdpak +26 
789 clr cemdpak +30 
ie elr emdpak +32 
Le mov he pein — place val 
mov »Psprng ;load response packet area into ring 
mov #cmdpak ,c ;load command ket area into ri 
295 roy 9180000 RSPRNE +2 Reet aunavehin bit. _ 
796 mov #bit15,CMDRNG+2 
a jsr pe ,POLLWT :Go to poll and wait routine. 
799 pRRhhs KAREAAAAARAEREREEEEEEEAAAAEAEAAES ESE AA SAAD EAAAAEEEEEEEEEEEEESES 
800 
802 a aad ee oe ean to (4), poll 
sp fix stack for interrupt - wt 
803 . ;subrtn (2) ne ” 
804 mov #intsrv,@vector ;Change vector 
805 jsr pc ,RSPCHK :Go to routine that will check on 
806 ithe response recvd from the mut. 
807 sit will check the cmd ref 
808 - imum, the endcode and status. 
809 -nlist 
810 .ENDM 





SEQ 0021 


Je 
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Execute a Execute Local Program 


EXLCPRG Enamadr 
\B ,Enamadr 


ni" B,Enamadr 
is 
bit #bit15,cmdrng+2 


bne ELP’'B 

Mov #22,cmdlen 

movb #0,cmdlen+2 

movb #dun. id,cmdlen+3 
cr dpak 


elr cndpak +2 

- cmdpak 2 

elr cmdpak +6 

mov #op.elp, pow aie 
Mov fe ,cmdpak +12 


Mov 

mov Scmdpak+14,r1 
Mov #Enamadr ,r2 
movb (r2)+, (ri)+ 
sob r0,rfdj! B 


MOV #RFD‘'B,@vector 
mov #rsppak ,rsprng 


Mov #biti5, NG+2 
jsr pc. POLLWT 


command and the check the response. 


;Execute a Send Data command 
zincrement the CRN number 

;call variable A,B as if it were a 
snumber (\) 


est ee of ring nake sure we 

sown i 

;if we don’t own it wait unti_ we do 

ane wo fom, o ee be sent 
ype ¢c it 

Teed od OP gensaction ID 


:load up opcode 
stand Sone modifier 
76 letters transfer 


istart ing address to 2 Scam program name 


sstart Program Name 
;add 2 to bycnt then store 


— place nan 

response packet area into ring 
sload command packet area into ring 
:Port ownership bit. 


:Go to poll and wait routine. 


{RR REREREEEREK  REAEAEEAEAEAAEEEEEAEAEAEEAAESALEAARARALE AAAS RALEALERELELSE 


RFD'B: 
add #6,Sp 
mov #intsrv, vector 
jsr pe,R 
-nlist 
.ENDM 


iy eleas hes teheonent Ok, nation 
'x stac or in errup po.iiw 
;subrtn (2) 

:Change vector 

:Go to routine that will check on 
sthe response recvd from the mut. 

zit will check the cmd ref 

snum, the endcode and status. 


K2 
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Execute a Eexcute Supplied Program command and the check the response. 


EXCSUPPRG Progname,Proasize 


\B,,Progname ,Progsize 


ie B,Progname ,Progsi ze 


bit 


mov 
jsr 


#bit15,cmdrng+2 


yg ea | enti 


;Execute a Supplied program command 
increment the CRN number 

;call variable A,B as 
s;number (\) 


if it were a 


a tnttias of ring make sure we 
;OWN | 

if we don't own it wait until we do 
sload length of packet to be sent 

4 he ae og type and ~~ he value 
il connection I 


i load up opcode 
ae tend me modifier 
lead length of prg into buffer 


;starting address of cownline load prg 


% 
‘a 


overlay buffer descriptor 


sNew vector place 

; load response packet area into ring 
;load command packet area into ring 
:Port ownership bit. 


:Go to poll and wait routine. 


: 
,eeae seabeannesinananannantaenabeaeneanasoasanabensenananteneneennaet 
RFD'B: 


.ENDM 


mov 
jsr 


enlist 


#6,Sp 


#intsrv,@vector 
pe, RSPCHK 


2 gh dy Ee 
1x $tac or in errup Polliw. 
;subrtn (2) 

;Change vector 

:Go to routine that will check on 
ithe response recvd from the mut. 
;it will check the cmd ref 

inum, the endcode and status. 
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.ENDM 
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Execute an MSCP SET ginger command and 


scc 
\8 


SCCTMP 
.list 
bit 


add 


mov 
jsr 


-nlist 


he response 


sExecute an MSCP SET CONTROLLER CHARACTERISTICS command 
; increment the CRN number 
;Call variable 8 as if it were a number (\) 


B 
#bit15,cmdrng+2 


#RFD'B,@vector 
4rsppak, rsprng 


ak ,cmdrn 
Seates entre 
#bit15,cmdrng+2 
pc ,POLLWT 
#6,Sp 


#intsrv,@vector 
pec ,RSPCHK 


;test ownership of ring to make sure 
swe own it 

;if we don’t, wait until we do 
sload length of packet to be sent 

; load message type and credit value 
; load MSCP semmnet ion Id 

;load new CRN 


s:load opcode 

; load nodit iene 

;NO MODIFIERS 

sload controller flags 

; load default MSCP timeout value 


sNEW VECTOR PLACE 
; load peapenes packet area into ring 


; load and packet area into ring 
‘poRT OWNERSHI BIT. 


:GO TO POLL AND WAIT ROUTINE. 


pensnossdanenensnnnsanasasannennbesanananesanenansecooasoansonsnennnst 
RFO'B: 


;INTR TO HERE. 
= stack for interrupt (4), 

llwt subrtn (2) 

HANGE VECTOR 
‘Go to routine that will check on 
;the response recvd from the mut. 
rit will check the cmd ref 
;num, the endcode, and status. 





Me 
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Execute 


GUS 
\B 


GUSTMP 
.list 
bit 


bne 
mov 
movb 
movb 
ine 
elr 
mov 
elr 
Mov 
elr 
clr 


mov 
mov 
mov 
mov 
mov 


an MSCP GET UNIT STATUS command and check the response 


;Execute an MSCP GET UNIT STATUS command 
; increment the CRN number 
:Call variable B as if it were a number (\) 


B 
#bit15,cmdrng+2 ap —— of ring to make sure 
GUS'B nt wee yr t, wait until we do 
a. cmdlen ‘load length of packet to be sent 
emdlen+ 2 s;load message type and credit value 
aneer id,cmdlen+3 :load MSCP connection ID 
;load new CRN 
fia sunit number 
— = cmdpak +10 anes apersy 
top 1 Pes ad modif 
oe ‘NO MODIFIERS 
#RFD'B,dvector s;NEW VECTOR PLACE 
ersppak, rsprng :1oad response packet area into ring 
ak ,cmdrng command pecxet area into ring 
bis ‘rsprng+2 ooRt OWNERSHIP BIT 


#bitiS, ai 
,POLLWT ;GO TO POLL AND WAIT ROUTINE. 


jsr 
UU ee TT See TTT TT ere TeeeT eT ere Te TT Te TTT TT eCeT eT Teer eT Tre Tere Tyrer Tere Ti 
RFD'B: 


sINTR TO HERE. 


#6,Sp soe stack for interrupt (4), 
llwt subrtn (2) 

#intsrv, vector :CHANGE VECTOR 

rsppak +44, trksiz 
pres izs ybytsiz ;Calculate bytes per track 

ytsiz 
bytsiz sBYTSIZ = TRKSIZ * 1000 Octal 
pc ,.RSPCHK ;Go to routine that will check on 


;the response recvd from the mut. 
;it will check the cmd ref 
num, the endcode, and status. 


————— 
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Execute 


ONLINE 
\B 
ONL TMP 


.list 
bit 


Mov 
mov 
sub 
sbe 


mov 


SEQ 0026 


an MSCP ONLINE command and check the response 


s;Execute an MSCP ONLINE command 
;increment the CRN number 
;Call variable B as if it were a number (\) 
B 
#bit15.cmdrng+2 ;test ownership of ring to make sure 
swe own i 
ONL'B ;if we don't, wait until we do 
#44,cmdlen ;load length of packet to be sent 
#0, cmdlen+2 ;load message type and credit value 
aMSCP. id, cmdlen+3 ;load MSCP connection ID 
cmdpak :load new 
cone : 
wt Ee pani unit number 
Cc + 
#op.onl ,cmdpak +10 s;load opcode 
cemdpak +12 :;load modifiers 
cmdpak +14 ;reserved 
emdpak +16 ; flags 
cemdpak +20 
emdpak +22 
cmdpak +24 
cmdpak +26 
cmdpak +30 
emdpak +32 
cmdpak +34 suse default tuning parameters 
cmdpak +36 
ore eveceer — PLACE hat el 
sppak ,rsprn $ response packet area into ri 
Rentoss eodral ;load command packet area into sles” 
#140000, rsprng+2 ;PORT OWNERSHIP BIT. 


#bit15,cmdrng+2 
POLLWT ;GO TO POLL AND WAIT ROUTINE. 


jsr pc, 
jRRRRRRARREREERAEAREEEAAEERASEEAS RARE EARERARERAREEAAERAESERERREEEEEEE 
RFD‘B: 


;INTR TO HERE. 


#6,sp :fix stack for interrupt (4), 

spollwt subrtn (2) 3 
rsppak +44 ,MAXLLBN ;save low word of Max Available LBNs 
rsppak +46 , MAXHLBN ;save high word of Max Available LBNs 
#1,maxllbn sget max lbn versus size 
maxhlbn ; 
¢intsrv,dvector ;CHANGE VECTOR 


- e 
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Macro Def init ons 
1082 sr pc , RSPCHK ;Ge to routine that will check on 
1083 recvd from the mut. 


;the response 
1084 ;it will check the cmd ref 
1085 num, the endcode, and status. 
086 


SEG O02" 


oh: 
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Macro Definitions 


.MACR 
B=B+1 
readt 
.ENDM 


-MACR 


READ' 


Execute an MSCP 


SEQ 0028 


READ command and check the response 


;Execute an MSCP READ command 
;increment the CRN number 
;Call variable B as if it were a number (\) 


;UNIT carries the Unit Number, LOLBN carries 


;the low word of lbn, and HILBN carries the high 


;test ownership of ring to make sure 
swe own it 

;if we don't, wait until we do 

;load length of packet to be sent 
;load message type and credit value 
s;load MSCP connection ID 

;load new CRN 


;unit number 

; opcode 

s;load modifiers 
sbyte count 
;address of buffer 


slo word of lon 
shi word of lbn 


;NEW VECTOR PLACE 

sload response packet area into ring 
;load command pocket area into ring 
;PORT OWNERSHIP BIT. 


;GO TO POLL AND WAIT ROUTINE. 


p RRREAAERARERAEKAAAAEREAAEREREREEARAAEARAAEARAREEAEAEAE EASE REREREL ES 


-ENDM 


QO READ 

mp \B 

OQ READTMP B 

sword of 1 

-list 

B: bit #bit15,cmdrng+2 
bne READ‘B 
mov #40,cmdlen 
movb #0,cmdlen+2 
movb #MSCP.id,cmdlen+3 
ine cmdpak 
ce Rifedoaee 
mov x + 
o ie Etat 10 
mov -RU,C ~ 
clr cemdpak +12 
mov BYTSIZ, cmdpak +14 
clr aoe 
mov #RCVBUF , cmdpak +20 
clr emdpak +22 
clr cmdpak +24 
eal ape 
elr c - 
elr cmdpak +32 
Mov LOLBN, cmdpak +34 
MOV HILBN, cmdpak +36 
mov #RFD'B,@vector 
Mov érsppak , rsprng 
Mov #cmdpak ,cmdrng 
mov #140000 ,rsprng+2 
mov #bit15,cmdrng+2 
jsr 4 WT 

RFD'B: 
add #6,Sp 
Mov #intsrv,@vector 
jsr pc .RSPCHK 
-nlist 


sINTR TO HERE. 

ifix stack for interrupt (4), 
pote subrtn (2) 

;CHANGE VECTOR 

;Go to routine that will check on 
sthe response recvd from the mut. 
;it will check the cmd ref 

;num, the endcode, and status. 


03 
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) 1146 
1147 
1148 i+ 
ch 5 Execute an MSCP WRITE command and check the response 
1151 
1152 
1153 -MACRO WRITE ;Execute an MSCP WRITE command 
1154 B=B+1 ;increment the CRN number : 
1155 wrttmp \B ;Call variables 8, C, and D as if they are numbers (\) 
1156 .ENDM 
1157 
1158 -MACRO WRTTMP B 
1159 -list 
1160 WRT'B: bit #bit15,cmdrng+2 ;test ownership of ring to make sure 
1161 swe own it : P 
1162 bne WRT'B ;if we don’t, wait until we do 
1163 mov #40, cmdlen ;load length of packet to be sent 
1164 movb #0, cmdlen+2 ;load message type and credit value 
1165 movb #SCP.id,cmdlen+3 ;load MSCP connection ID 
66 ine cmdpak ;load new CRN 
1167 elr og ple ’ 
1168 mov UNIT, cmdpak +4 ;unit number 
1169 elr cmdpak +6 
1170 mov #op .wr ,cmdpak +10 sload opcode 
1171 clr +12 s;load modifiers 
1172 mov BYTSIZ, cmdpak +14 sbyte count 
1173 elr yo a 
1174 MOv &SNDBUF , cmdpak +20 ;address of buffer 
1175 clr emdpak +22 
1176 elr cmdpak +24 
1177 elr cmdpak +26 
1178 elr cmdpak +30 
1179 clr emdpak +32 
80 mov LOLBN, cmdpak +34 slow word of lbn 
ties mov HILBN, cmdpak +36 shigh word of lbn 
1183 mov #RFD'B,avector sNEW VECTOR PLACE 
184 mov #rsppak ,rsprng :;load response packet area into ring 
1185 mov #cmdpak ,cmdrng ;load command pocket area into ring 
86 mov #140000, rsprng+2 ;PORT OWNERSHIP BIT. 
1187 mov #bit1S,cmdrng+2 
aR sr pe ,POLLWT ;GO TO POLL AND WAIT ROUTINE. 
1189 fRRRRREREREEEEAEEEEEREEEEARARAERERARAEAEAEEEEEERESARESA SEALERS EASELS 
1190 RFO'B: ;INTR TO HERE. 
1191 #6,Sp ifix stack for interrupt (4), 
1192 f sped att subrtn (2) 
1193 mov #intsrv, vector ;CHANGE VECTOR 
1194 jsr pc ,RSPCHK ;Go to routine that will check on 
1195 ;the response recvd from the mut. 
196 it will check the cmd ref 
1197 : ;num, the endcode, and status. 
1198 enlist 


1199 -ENDM 





E3 
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Re: SEQ 0030 
Macro Definitions 
1201 
1202 : ° . 
1203 -MACRO CMPR ;This macro will read the data written onto 
1204 ;the disk, store it in RCVBUF, compare the data 
12C¢5 iwith the data in SNDBUF, and report all 
io :discrepancies as bad bytes in the logical block 
1509 o-Be4 8 
c mp 
1310 PROM 
1211 
1212 -MACRO CMPRTMP B 
1213 -list 
1214 elr ri ;make sure bits 8-15 are zero in rl and r2 
1215 clr r2 
1216 elr LOLBN :Clear low and high words of LBN counter 
1217 . elr HILBN 
1218 elr ERRCNT :;Clear cumulative error counter 
1219 clr TRKCNT ;Clear track counter 
1220 NUTRK‘B: 
1221 clr rd Set offset = 0 
1222 elr r3 :Clear bad byte counter 
1223 WRITE Send data from SNDBUF to disk 
1ss8 READ ;Get data from disk and place it in RCVBUF 
1226 CMP‘B: cmpb RCVBUF (r0), SNDBUF (r0) 
227 ;Is the data in SNDBUF equal to data in RCVBUF? 
1228 beq UPOT‘B If so, skip bad byte counter update 
1229 ine r3 sUpdate bad byte counter 
1230 UPDT'B: inc r0 ; Increment offset 
1231 cmp BYTSIZ,r0O 
1232 CMP’ B sIf not at the end of buffers, compare next byte 
t233 tst r3 
1234 ; CNTR‘B sBranch over Bad Byte Report if none found 
1235 -nlist ; 
236 printb #BTRPT,TRKCNT,r3 
1537 :XXX bad bytes found in LBN: YYYYYY 2ZZZZZZ 
is -list 
1240 CNTR‘6: add TRKSIZ,LOLBN ;Update track counters 
i241 adc HILBN ;Add carry from LOLBN to HILBN 
1243 OVER'B: cmp HILBN,MAXHLBN = ;If high word of LBN <> Maximum high word 
1244 sof LBN, update counters 
1245 bne JMP'B 
1246 cmp LOLBN,MAXLLBN ;If high word of LBN = maximum high word 
1247 ;0f LBN and low word 
1248 ;0f LBN <= Maximum low word of LBN, 
1249 3g0 to next block 
1250 bge END‘B 
1251 cmp #0,r3 Check to see if any bad bytes found 
1252 beq . :1f none, go to onl track 
1253 inc ERRCNT ;Otherwise, update error count 


ore 
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1254 JMP'B: inc TRKCNT 

1255 , jmp NUTRK‘B 
56 -nlist 

1257 END'B 

1258 .ENDM 





;Update track counter 
;Go to next track 


ts 
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' SEQ 0032 
_ Word € Buffer defintions 
| 1260 .sbttl Word & Buffer defintions | 
| 
1262 002310 000000 LOGUNIT: .WORD ; logunit number 
1263 002312 000000 LOCAL: .WORD ; 
1264 002314 000000 PLOC:  .WORD ;p table address | 
1265 002316 900000 tbl: .WORD ip table address 
1266 002320 000000 ITadr: .word 
1267 002322 000000 BOOT:  .word ;sbootable media 
Bs 
;* 
1270 ; These next locations may be altered to —_ the correct IP & SA address 
1271 ; If only 1 jumper is to placed on the ML the locations should be filled 
iste ; with addresses 177770 and 177772 respectively. 
1274 
1275 002324 000000 IPreg: .WORD 0 ;Address of the SA and IP registers 
1276 002326 000000 Vector: .word 0 
1277 002330 000000 Unit: .word 0 sunit number 
1278 002332 000123 -word 123 
1279 002334 177777 sernbr: .word 177777 ;serial number 
1280 002336 000000 UNTflgs: .word 0 :flags, bit 15 = auto mode 
1281 sbit 13 = unknown model number 
1282 sbit 12 = test floppy only 
1283 sbit 11 = Format Progress Report title has 
1284 : already been printed 
1285 002340 000000 mdlnbr: .word 0 r= oy pasaaeaed of the controller as returned in 
istep 
1287 002342 000000 mcdnbr: .word 0 4 hip oy number of the controller as returned 
:in step 
Sep 002344 000000 UIN: -word 0 ;this is a pointer to the correct UIT table 
1291 002346 RSP1: -BLKW 2 ;Response packet length 
1292 002352 RSPPAK: .BLKW 30. ;Response packet 
1293 002446 CMDLEN: .BLKW 2 Command packet length 
isss 002452 CMDPAK: .BLKW 20. ;Command packet 
000000 CINTR: .WORD 0 ;Command interrupt indicator 
1297 002524 000000 RINTR: .WORD 0 ;Response interrupt indicator in 
1298 002526 002352 RSPRNG: .word rsppak ;Message ring 
1299 002530 140000 .word 140000 
1300 002532 002452 CMDRNG: .word cmdpak ;Command ring 
1301 002534 100000 -word 100000 
eof 002536 177777 -WORD -1 
1304 002540 000000 LSTCRN: .word 0 ;storage for unreturned command CRN 
1305 002542 000000 LSTCMD: .word 0 ;storage for unreturned command opcode 
1306 002544 000000 LSTVCT: .word 0 ;storage for unreturned command interrupt 
1307 ;svector address 
1308 002546 000000 LOPRGI: .word 0 ;sLow word of the progress indicator 
1309 002550 000000 HIPRGI: .word 0 sHigh word of progress indicator 
1310 002552 000000 LOLBN: .word 0 ;Low word of Logical Block Number 
1311 3(MSCP Read/Write Commands) - GJK 
1312 002554 000000 HILBN: .word 0 High word of Logical Block Number 
;(MSCP Read/Write Commands) - GJK 
1314 002556 000000 MAXLLBN: .word 0 ;Low word of long word containing number of 
3 ;LBNs available - GJK 


1316 002560 000000 MAXHLBN: .word 0 sHigh word of long word containing number of 


—_—_—_—_ . Le 
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Word & Buffer defintions 
1317 


;LBNs available - GJK 


.word 0 :(# of LBNs per track) *« (# of bytes per LBN) 
-word 0 :# of lbns on a track 
.word 0 ;Word used to keep track of number of bad 
1322 sblocks found - GUK 
1323 002570 000000 TRKCNT: .word 0 ;Track counter ; 
1324 002572 000000 ENDIT: .word 0 ;Storage for GMANIL in _tstdrv routine 
1325 002574 000000 DELAY: .word 0 ;Stor for delay in TRP100 
Asse 002576 000001 NXTTIM: .word 1 Used to keep track of one second delays 
1355 ; Line time clock variables (Used in HRDINT routine) 
1330 002600 TIMER: 
1331 002600 ‘ 1 
1332 002602 TIMEOUT: 
1333 002602 -olkw = «1 
1334 002604 HERZ: 
1335 002604 007020 .word 3600. 
1336 002606 RECV.DONE: 
002606 -blkw = 1 


.even 


13 -nlist b ;data area 
rt 002610 DATARE: .asciz /#A12345678901234567890123456 7890123456 7890123456 7890123456 7890123456 7890123456 7890/ 


1342 
1343 002734 PRGnam: .ascii /FORMAT/ ;address of local format program name 
1344 002742 .byte 0 snull for asciz 


1345 002743 XBN: -ASCIZ /0123456789/ 
1346 002756 DBN: -ASCIZ /0123456789/ 
1347 002771 LEN: -ASCIZ /0123456789/ 
1348 003004 RBN: -ASCIZ /0123456789/ 


1350 .even 


1318 

1319 002562 000000 BYTSIZ: 

1320 002564 000000 TRKSIZ: 

1321 002566 000000 ERRCNT : 

1351 .list bin 
| 


SEQ 0033 


= 


1 
1359 


1400 003066 
1401 003070 
1402 003072 
40 3074 


002776 
177777 
003000 
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Word € Buffer defintions 


.sbttl DISK UNIT INFORMATION TABLES 


3¢ 
; The following tables are made up of disk drive parameters which will be 
; fed to the FORMAT controller local program which will then use the 

; information to format the drives. 


" 22776 


.word -1 szback door for custom table build 
3* 
3 Unit Information table RD51 Seagate 
SNDBUF Use UITs as data sent to disk to test the 
ute sintegrity of the LBNs 
3/4#Top of Unit Information table (UIT) 
word 57. ;/XBN size (lo wrd) 
;XBN size = 3#(1+sectors_per_track )/ 
word 0 3/XBNs size (hi wrd)/ 
word 87. ;/0BN size (lo wrd)/ 
word 0 ;/0BN size (hi wrd)/ 
word 21744. ;/LBN size (lo wrd)/ 
word 0 ;/LBN size Chi wrd)/ 
word 144, ;/RBN size (lo wrd)/ 
word 0 3/RBN size (hi wrd)/ 
word 18. ;/Sectors per track/ 
word 4. ;/Surfaces per unit/ 
word 307. :/Cylinders per unit/ 
word 110. ;/Write precomp cylinder/ | 
word : ;/Reduce write current cylinder / 
word 518. ;/Drive Type/ 
word 1 3/Use CRC or ECC/ 
word 36. 3/RCT Size/ 
word 4. ;/Number of RCT copies/ 
word B80100000000110011 ;tH4033;/Media (lo wrd)/ 
word 1B0010010101100100 ;tH2564; ‘Media (hi wrd)/ 
word 2 ;/Sector Interleave (n-to-1)/ 
word 2 ;/Surface to Surface Skew/ 
word :/Cylinder to Cylinder Skew/ 
word 16. :/Gap size 0/ 
word 16. ;/Gap size 1/ 
word 5. ;/Gap size 2/ 
word 16. :/Gap size 3/ 
word 13. 3/Syne size/ 
word 1 :/MSCP cylinders per Unit/ 
word 1 ;/MSCP Gr per Cylinder/ 
word 1 ;/MSCP Tracks per Group/ 
word 2 ;/Max allowed bad spots per surface/ 
word 105. ;/Bad spot tolerance (bytes)/ 
word 307. ;/auto recal cylinder 
307. ;/auto recal cylinder 


_ kord 
UITsiz = .-UITO 
.73000+ UITsiz 


SEQ 0034 
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SEQ 0035 
DISK UNIT INFORMATION TABLES ) 


14 
1416 003104 


Unit Information table 


RDS2 Quantum drive 


141 :/#Top of Unit Information table (UIT) 
1418 003104 000066 word 54. ;/XBN size (lo wrd) 
1419 ;XBN size = 34(1+sectors_per_track)/ 
1420 003106 -word 0 ;/XBN size (hi wrd)/ 
1421 003110 000122 -word 82. ;/0BN size (lo wrd)/ 
1422 0031 -word 0 ;/0BN size (hi wrd)/ 
1423 003114 166140 -word 60512. ;/LBN size (lo wrd)/ 
1424 003116 .word 0 ;/LBN size (hi wrd)/ 
003 000250 -word 168. ;/REN size (lo wrd)/ 
1426 003122 -.word 0 ;/RBN size Chi wrd)/ 
1427 003124 000021 -.word 17. ;/Sectors per track/ 
1428 003126 000010 -word = 8. ;/Surfaces per unit/ 
1429 003130 001000 -word 5l2. :/Cylinders per unit/ 
1430 003132 -word 256. ;/Write precomp cylinder/ 
1431 003134 1 -word 512. ;/Reduce write current cylinder / 
1432 003136 001010 .word 520. ;/Drive Type/ 
1423 003140 -word = 1 ;/Use CRC or ECC/ 
1434 003142 word 4 3/RCT Size/ 
1435 003144 000010 .word 3. ; r_of RCT copies/ 
36 003% -word B80100000000110100 ; tH4034;/Media (lo wrd)/ 
1437 003150 022544 -word *B00100101011C.100 ;tH2564;/Media (hi wrd)/ 
1438 003152 000001 -.word 1 ;/Sector Interleave (n-to-1)/ 
1439 002154 000002 .word ;/Surface to Surface Skew/ 
1440 003156 000015 -word 13. ;/Cylinder to Cylinder Skew/ 
1441 003160 000020 -word 16. :/Gap size 0/ 
1442 003162 -word 16. ;/Gap size 1/ 
1443 003164 .word 5. :/Gap size 2/ 
003: 000050 -.word 40. ;/Gap size 3/ 
1445 003170 000015 -word 13. s/Syne size/ 
1446 003172 000001 .word 1 3/M3CP cylinders per Unit/ 
1447 003174 000001 -.word 1 ;/MSCP yrepe per Cylinder/ 
1448 0031 000001 -word 1 ;/MSCP Tracks _ Group/ 
1449 00 000012 -word 10. ;/Max allowed bad spots per surface/ 
1450 003202 000151 -word 105. ;/Bad spot tolerance (bytes)/ 
1451 003204 001000 word 5l2. ;/auto recal cylinder 
zg 00 001000 word 5l2. ;/auto recal cylinder 
1454 003210 .73000+UITsiz+UITsiz 
1455 
1456 
1457 i* ; 
1458 $ Unit Information table RD52 Atasi 
1459 i 
1460 
146 
oe nah /aT f Unit Inf le (UIT) 
:/#Top o it Information table 
1464 003210 © 0066 -word 54. 3/XBN size (lo wrd) 
:XBN size = 3#(1+sectors_per_track)/ 
1466 003212 000000 word 0 3/XBN size (hi wrd)/ 


| 
| 


K3 
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DISK UNIT INFORMATION TABLES 
1467 003214 000101 
000000 


496 06 
1497 003310 001206 
001206 


1 

1507 003314 
1509 003314 
1510 

1511 003316 
1512 320 


1521 003342 
1522 003344 
1523 003346 


65. ;/08N size (lo wrd)/ 
0 ;/DBN size (hi wrd)/ 
60512 ;/LBN size (lo wrd)/ 
0 ;/LBN size (hi wrd)/ 
168. 3/RBN size (lo wrd)/ 
3;/RBN size (hi wrd)/ 
17. ;/Sectors per track/ 
7. :/Surfaces per unit/ 
645. :/Cylinders per unit/ 
320. :/Write precomp cylinder/ 
645. ;/Reduce ott current cylinder / 
520. :/Drive Type 
1 ;/Use CRC’or “Ecc 
4 :/RCT § ize/ 
~~ of RCT copies/ 
#B0100000000110100 ;tH4034;/Media (lo wrd)/ 
160010010101100100 ;tH2564;/Media (hi wrd)/ 
1 tor Interleave (n-to-1)/ 
2 om ll to Surface Skew/ 
7. ;/Cylinder to Cylinder Skew/ 
1€. ;/Gap size 0/ 
16. :/Gap size i/ 
5 ;/Gap s‘ze 2/ 
. pm size 3/ 
i3. ne size/ 
: Gis oe PE Linger’ 
per oe i r 
1 + MCP kp froups | 4 
20. :;/Max allowed aa aoe per surface/ 
105. ;/Bad spot tolerance (bytes)/ 
646. ;/auto recal cylinder 
646. ;/auto recal cylinder 


.=3000+UITsiz+UITsiz+UITsiz 


UIT3: 


Unit Information table RD53 Micropolis 


:/4Top of Unit Information table (UIT) 
54. :/XBN size (lo wrd) 
; BN size = 34(1+sectors_per_track )/ 


0 ;/XBN size (hi wrd)/ 

82. ;/DBN size (lo wrd)/ 

c ;/DBN size (hi wrd)/ 
7640. ;/LBN size (lo wrd)/ 

2. ;/LBN size (hi wrd)/ 

280. ;/RBN size (lo wrd)/ 

0 ;/RBN size Chi wrd)/ 

17. ;/Sectors per track/ 

8. :/Surfaces per unit/ 
1024. ;/Cylinders per unit/ 
1024. :/Wr ite precomp cylinder/ 
1024. ;/Reduce write current cylinder / 
S21. ;/Drive Type/ 


SEQ 0036 


a eS 


L3 
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DISK UNIT INFORMATION TABLES 
1524 003350 000001 
1525 003 


1552 
1553 003420 
1554 
1555 003420 000066 
556 
000000 


1 
1557 003422 


1 /Use CRC or ECC/ 

5 + RET Size/ 

8. r of RCT copies/ 

tBO0 0100000000110161 ; ; tH4035; ‘Media {lo wrd)/ 

*80010010101100100 ; tH2564;/Media (hi wrd)/ 

1 ;/Sector Inter leave (n-to-1)/ 

2 : /Surface to Surface Skew/ 

8. :/Cy Linder to Cylinder Skew/ 

16. ;/Gap size 0/ 

16. ;/Gap size 1/ 

a :/Gap size 2/ 

40. ;/Gap size 3/ 

13. +/S ne size/ 

1 7MECP cylinders per Unit/ 

1 S/MSCP G per Cylinder/ 

1 ;/MSCP Tracks per Group/ 

allowed bad ts per qurtece/ 

;/Bad spot tolerance (bytes)/ 

1024 ;/auto recal cylinder 

1024 ;/auto recal cylinder 


.=3000+UITsiz+UITsiz+UITsiz+UITsiz 


UIT4: 


Unit Information table RD31 Seagate 


3/#Top of Unit snfqvnation table (UIT) 


54. ;/XBN size (lo 

;XBN size = 34(1+sectors_per_track)/ 
0 ;/7XBN size (hi wrd)/ 
14. ;/0BN size (lo wrd)/ 
0 ;/DBN size (hi wrd)/ 
41584. ;/LBN size (lo wrd)/ 
0 ;/LBN size (hi wrd)/ 
100. ;/RBN size (lo wrd)/ 

;/RBN size (hi wrd)/ 
17. ;/Sectors per track/ 
4. ;/Surfaces per unit/ 
615. ;/CyLinders per unit/ 
256. ;/Write precomp cylinder/ 
615. aRopues ott» current cylinder / 
524. :/Drive T ype/ 
1 Use CRC or ECC/ 
3 PRET sine 

:/ of RCT copies/ 
+B0100000000011111 ; sTAaOF Media ary wrd)/ 
*80010010101100100 ; /Media (hi wrd)/ 
1 a we Enter leeve (n-to-1)/ 
2 ;/Surface to Surface Skew/ 
4. ;/CylLinder to Cylinder Skew/ 
16. ;/Gap size 0/ 
16. ;/Gap size 1/ 
2. ;/Gap size 2/ 





SEQ 0037 


| M3 
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;/Gap size 3/ 

;/Syne size/ 

:/MSCP cylinders per Unit/ 

;/MSCP Gr per Cylinder/ 

;/MSCP Tracks per Group/ 

;/Max allowed bad spots per surface/ 
;/Bad spot tolerance (bytes)/ 

;/auto recal cylinder 

;/auto recal cylinder 


Unit Information table RD54 Maxtor Drive 


;/#Top of Unit Information table (UIT) 
;/XBN size (lo wrd) 
;XBN size = 34#(1+sectors_per_track )/ 
;/XBN size Chi wrd)/ 
;/DBN size (lo wrd)/ 
;/DBN size (hi wrd)/ 
;/LBN size (lo wrd)/ 
;/LBN size Chi wrd)/ 
;/RBN size (lo wrd)/ 
;/RBN size (hi wrd)/ 
;/Sectors per track/ 
;/Surfaces per unit/ 
;/Cylinders per unit/ 
;/Write precomp cylinder/ 
;/Reduce write current cylinder / 
;/Drive Type/ 
;/Use CRC or ECC/ 
:/RCT Size/ 
of RCT copies/ 


8. ;/Number 
+B0100000000110110 ;tH4036;/Media (lo wrd)/ 
SUCRE SOLRIAE RECS ; tH2564 


;/Media Chi wrd)/ 

;/Sector Interleave (n-to-1)/ 
;/Surface to Surface Skew/ 
:/Cylinder to Cylinder Skew/ 

;/Gap size 0/ 

;/Gap size 1/ 

;/Gap size 2/ 

;/Gap size 3/ 

ayes size/ 

;/MSCP cylinders per Unit/ 

;/MSCP Gr per Cylinder/ 

;/MSCP Tracks pee Group/ 

;/Max allowed bad spots per surface/ 
;/Bad spot tolerance (bytes)/ 

;/auto recal cylinder 

;/auto recal cylinder possible on this vendor's 
;/drive mmm 


1581 003502 000050 .word 40 
1582 003504 000015 -word 13 
1583 003506 .word 1 
1584 003510 000001 -word 1 
1585 003512 000001 -.word 1 
514 000010 .word 
1587 003516 000151 .word 105 
1588 003520 001147 .word 615. 
1388 003522 001150 .word 616. 
ree 003524 .=3000+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz 
1593 
1594 + 
1595 3 
1596 ~ 
1597 
1598 
1599 003524 UITS: 
pte 003524 000066 .word 54. 
1603 003526 000000 ; .word 0 
1604 003530 000311 .word 201. 
1605 003532 000000 .word 0 
1606 003534 137730 .word 137730 
1607 003536 000004 .word 4 
1608 003540 001141 .word 609. 
1609 003542 000000 -word 0 
1610 003544 000021 : .word 17. 
1611 003546 000017 .word 15. 
1612 003550 002311 .word 1225. 
1613 003552 002311 -word 1225. 
1614 003554 002311 .word 1225. 
1615 003556 001015 .word 525. 
1616 003560 000001 .word 1 
1617 003562 000007 .word 7 
1618 003564 000010 .word 
1619 003566 040066 .word 
1620 003570 022544 .word 
1621 003572 000001 .word 
1622 003574 000002 .word 2 
1623 003576 000010 -word 8. 
1624 003600 000020 .word 16. 
1625 003602 000020 -.word 16. 
1626 003604 000005 .word 5. 
1627 003606 000050 .word 40. 
1628 003610 000015 .word 13. 
1629 003612 000001 .word 1 
1630 003614 000001 .word 1 
1631 003616 000001 -word 1 
1632 003620 .word, 32. 
1633 003622 000151 .word 105. 
1634 003624 002311 .word 1225. 
1635 003626 002312 .word 1226. 
1636 
1637 





SEQ 0038 


| | 


NB 


| MAIN. MACRO VO5.03 Thursday 15-Jan-87 14:33 Page 21-5 non este 
DISK UNIT INFORMATION TABLES 


es 003630 .23000+UITsiz+UITsiz+UITsiz+UITsiz+UlTsiz+UITsiz 
1640 
1641 i+ i ; 
1642 3 Unit Information table RD32 
1643 $- 
1644 
1645 
1646 003630 UIT6 
1 ;/#Top of Unit Information table (UIT) 
1648 003630 000066 .word 54, ;/XBN size (lo wrd) 
9 ;XBN size = 34#(1+sectors_per_track )/ 
1650 003632 000000 .word 0 ;7XBN size (hi wrd)/ 
1651 003634 000060 .word 48. ;/DBN size (lo wrd)/ 
1652 003636 000000 -word 0 ;/DBN size (hi wrd)/ 
1653 003640 042444 .word 042444 ;/LBN size (lo wrd)/ 
1654 003642 000001 .word 1 ;/LBN size Chi wrd)/ 
1655 003644 000310 -word 200. + 7RBN size (lo wrd)/ 
1656 003646 000000 .word 0 ;/RBN size (hi wrd)/ 
1657 003650 000021 .word 17. ;/Sectors per track/ 
1658 003652 000006 -word 6. ;/Surfaces per unit/ 
1659 003654 001464 -.word 820. ;/Cylinders per unit/ 
1660 003656 001464 .word 820. ;/Write precomp cylinder/ 
1661 003660 001464 .word 820. ;/Reduce write current cylinder / 
1662 003662 001017 -.word 527. :/Drive Type/ 
1663 003664 000001 .word 1 Use CRC or ECC/ 
1664 003666 000004 .word 4 PRET Size/ 
1665 003670 000010 .word 8. : /Number of RCT copies/ 
1666 003672 040040 “word — #80100000000100000 ; tH40040; /Media (lo wrd)/ 
1667 003674 022544 .word *80010010101100100 ; ; tH22544; /Media (hi wrd)/ 
1668 003676 000001 .word 1 ;/Sector Interleave (n-to-1)/ 
1669 003700 000002 .word 2 ;/Surface to Surface Skew/ 
1670 003702 000011 word 9. ;/Cylinder to Cylinder Skew/ 
1671 003704 000020 4 .word 16. ;/Gap size 0/ 
1672 003706 000020 .word 16. ;/Gap size 1/ 
1673 003710 000005 .word§ 5. ;/Gap size 2/ 
1674 003712 000050 .word 40. eee size 3/ 
1675 003714 000015 .word 13. ne size/ 
1676 003716 000001 .word 1 Gist gyi indore per Unit/ 
1677 003720 000001 .word 1 ;/MSCP ose per Cy staged 
1678 003722 000001 -.word 1 ;/MSCP Tr oo Group 
1679 003724 000010 .word 8. :/Max allowed r surface/ 
1680 003726 000151 -word 105. ;/Bad spot tolerance a et 
1681 003730 001465 word 821. ;/auto recal cylinde 
ieee 003732 001465 .word 821. ;/auto recal suliader 
168s 003734 .*3000+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz 
1686 
1687 i* 7 : 
1688 : Unit Information table 
1689 3 
1690 
1691 - 
1692 003734 VIT?: 


/aTop of Unit Information table (UIT) 
1694 003734 000066 | word SA. ot, Cee alee Tia andl.ccat ete 





_ — _ a 


a 
_— 
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DISK UNIT INFORMATION TABLES 
:MBN size = 3e(1+sectors_per_ track )/ 


16% 003736 000000 word) §60 ;/XBN size (hi wrd)/ 

1697 003740 000057 -word 47. ;/D8N size (lo wrd)/ 

1698 003742 000000 .word 0 ;/DBN size (hi wrd)/ | 
1699 003744 016677 .word 016677 ;/LBN size (lo wrd)/ 
1700 003746 000002 -word 2 ;/LBN size Chi wrd)/ 

1701 003750 000524 -.word 340. ;/RBN size (lo wrd)/ 

1702 003752 000000 word 0 3/RBN size Chi wrd)/ 

1703 003754 000021 -word 17. ;/Sectors per track/ 

1704 003756 000010 -.word§ 8. ;/Surfaces per unit/ 

1705 003760 002000 -word 1024. ;/Cylinders per unit/ 

1706 003762 002000 -word 1024. ;/Write precomp cylinder/ — 

1707 003764 002000 -word 1024. ;/Reduce write current cylinder / 
1708 003766 000000 -word 0 ;/Drive Type/ 

1709 003770 000001 -word 1 ;/Use CRC or ECC/ 

1710 003772 000005 -word 5 ;/RCT Size/ 

1711 003774 000003 word 3 ;/Number_of RCT copies/ 

1712 003776 040065 .word +B0100000000110101 ;+tH4035;/Media (lo wrd)/ 

1713 004000 022544 -word +B0010010101100100 ; tH2564;/Media Chi wrd)/ 

1714 004002 000001 -word 1 ;/Sector Interleave (n-to-1)/ 
1715 004004 000002 -word 2 ;/Surface to Surface Skew/ 

1716 004006 000010 -word 8. :/Cylinder to Cylinder Skew/ 

1717 004010 000020 -word 16. ;/Gap size 0/ 

1718 004012 000020 -word 16. ;/Gap size 1/ 

1719 004014 000005 .word 5. ;/Gap size 2/ 

1720 004016 000050 -word 40. ;/Gap size 3/ 

1721 004020 000015 .word 13. /orng size/ 

1722 004022 000001 -word 1 :/MSCP cylinders per Unit/ 

1723 004024 000001 word 1 ;/MSCP Gr per Cylinder/ 

1724 004026 000001 .word 1 ;/MSCP Tracks per Group/ 

1725 004030 000040 .word 32. ;/Max allowed bad spots per surface/ 
1726 004032 000156 .word 110. ;/Bad spot tolerance (bytes)/ 
1727 004034 002000 -word 1024. ;/auto recal cylinder 

Us 004036 002000 -word 1024. ;/auto recal cylinder 

Be 004040 . =3000+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz+UITsiz 
1732 

1733 + ; : 

1734 ; DEFAULT Unit Information table ‘ 

1735 s- 

1736 

737 

1738 004040 UITdf: : 

1739 ;/*Top of Unit Information table (UIT) 
1740 004040 000066 -word 54. ;/XBN size (lo wrd) 

1741 ;XBN size = 34(1+sectors_per_track )/ 
1742 004042 000000 -word 0 ;/XBN size Chi wrd)/ 

1743 004044 000311 -word 201. ;/DBN size (lo wrd)/ 

1744 004046 000000 -word 0 ;/DBN size Chi wrd)/ 

1745 004050 137710 -word 137710 ;/LBN size (lo wrd)/ 

1746 004052 000004 .word 4 ;/LBN size (hi wrd)/ 

1747 004054 001161 word 625. ;/RBN size (lo wrd)/ 

1748 004056 000000 .word 0 ;/RBN size (hi wrd)/ 

1749 004060 000021 -word 17. ;/Sectors per track/ 


1750 004062 000017 .word ;/Surfaces per unit/ 


> # 
1751 004064 002311 -word 1225. ;/Cylinders per unit/ 








C4 
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SEQ 0041 

DISK UNIT INFORMATION TABLES 

1752 004066 002311 -word 1225. ;/Write precomp cylinder/ — 

1753 004070 002311 -word 1225. ;/Reduce write current cylinder / 

1754 004072 000000 .word 0 ;/Drive Type/ 

1755 004074 000001 .word 1 ;/Use CRC or ECC/ 

1756 004076 000007 .word 7 :/RCT Size/ ; 

1757 004100 000010 .word 8. ;/Number_ of RCT copies/ 

1758 004102 040066 .word +B80100000000110110 ; tH4034;/Media (lo wrd)/ 

175° 004104 022544 .word +B80010010101100100 ;tH2564;/Media (hi wrd)/ 

1760 004106 000001 word 1 ;/Sector Interleave (n-to-1)/ 

1761 004110 000002 word 2 ;/Surface to Surface Skew/ 

1762 004112 000015 .word 13. ;/Cylinder to Cylinder Skew/ 

1763 004114 000020 -word 16. ;/Gap size 0/ 

1764 004116 000020 .word 16. ;/Gap size 1/ 

1765 004120 000005 -word 5. ;/Gap size 2/ 

1766 004122 000050 .word 40. ;/Gap size 3/ 

1767 004124 000015 .word 13. ;/Syne $ize/ 

1768 004126 000001 ‘word 1 ‘7MECP cylinders per Unit/ 

1769 004130 000001 -.word 1 ;/MSCP Groups per Cylinder/ 

1770 004132 000001 -word 1 ;/MSCP Tracks - Group/ 

1771 004134 000012 .word 10. ;/Max allowed bad spots per surface/ 

1772 004136 000151 -word 105. ;/Bad spot tolerance (bytes)/ 

1773 004140 002000 -word 1024. ;/auto recal cylinder 


fae 004142 002000 -word 1024. ;/auto recal cylinder 





Se 


D4 
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144 


88 261 
1789 004302 
1791 004347 
1 004446 


1818 5 
1819 006531 
1820 

1821 006534 
1822 006576 
1823 006644 
1824 006717 


1825 006772 
ase 007045 


2 
1833 007120 


-nlist bin 


.sodttl DISK PARAMETER QUESTIONS 


; P table Questions 


FRPTB: 


-ASCIZ 


: .ASCIZ 


: .asciz 


-ASCIZ 


/IP Address/ 
/Vector Addres 
/Logical Drive (o- 255)/ 
/Drive Serial aber s- 32000 )/ 
/Just test phase 50d 
/Test another f oppy / 
/Auto Format Mode 
/*%a%% WARNING tr ¢ the data on this drive will be DESTROYED ##«/ 


/Proceed to format the drive/ 
/@NSAUIT# Drive NamesN/ 
/6A 


/*h 6 sN/ 
on front panel) sN/ 


/$A 1 RDS2 part # 30-21721-02 (1 Light 

/#A 2 RDS2 part # 30-23227-02 (2 lights on front panel )sN/ 
/@h 3 = RDS3 sN/ 
/#A 4 RO31L sN/ 
/#A 5  RDOS4 sN/ 
/#A 6 RD32 sN/ 
/@A 7 sN/ 
/#A 10 sN/ 
/%A Unrecognized Drive sN/ 


/#SNSAAUTOSIZER FOUND: / 

/SNBAUNt avis UIT# Drive Te 

/%A SD18A Nonex i sten 

/#A 8D18A RX50 Floppy TM ONFORMATABLE )&N/ 
/#A DISA RX33 Floppy (FORMATABLE )sN/ 


/#A SD18A_ SD4SA 
/#NSAAUTOSIZER RETURNED FAILURE STATUS CODE #D1#A:/ 
/ NSA CONTROLLER CHIP NEVER WENT DONE/ 

/SN%A CONTROLLER CHIP NEVER TNTERRUP TED/ 

— SEEK FAILED/ 


/Enter Unit Identifier Table (UIT)/ 

/What local program do you want to run/ 
/Enter XBN size in decimal (upto 10 digits)/ 
/Enter DBN size in decimal (upto 10 digits)/ 
/Enter LBN size in decimal (upto 10 digits)/ 
/Enter RBN size in decimal (upto 10 digits)/ 


FORMAT PROGRESS REPORT MESSAGES 


AM. saaennareans FORMAT PROGRESS REPORT ------------- sN/ 





E4 
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1834 007214 
1835 007253 


38 26 
1839 007474 
1840 007543 
1841 007612 
1842 007660 
1843 


1 

1886 011670 
1887 011732 
1888 012001 
1889 012111 
1890 


QUESTIONS 


: .ASCIZ 
s oh 


15-Jan-87 14:33 Page 22-1 


/SNSAF ormatt ing Nery lbn #: / 

/#NSAReplacing defect : $0SHA on head #: #D3/ 

/éNsAReading defect Li st/ 

/®NSAF irst check pass, writing lbn #: / 

tener Ae check pass, reading lbn 7 f 
SN#ASecond check pass, writing lbn #: / 

/aNsASecond check pass, reading lbn #: / 

/SNSATHird check pass, writing. lon #: Y 

/@NSAThird check pass, reading lbn #: / 


a | cee - If RX33 es boot diskette if in drive to formatted and/ 
<15><12>/ sert a diskette to be formatted. 

<15><12>/ If WINCHESTER check if wrt protect switch fF) & ready switch (on)./ 
<15><12>/WARNING - All data on drive will be DESTROYED, 


: -ASCIZ /If boot drive, reinsert boot diskette & press <RETURN> . / 


<15><12>/Do you want to format another diskette?/ 


Unit Information table (UIT) 


/XBN size (lo a size = 34(1+sectors_per_track )/ 
wr 

(lo wrd)/ 

i wrd)/ 

(lo wrd)/ 

i wrd)/ 


/LBN size 
/LBN size 
/RBN size (lo wrd)/ 
/RBN size Chi wrd)/ 
/Sectors per track/ 
/Surfaces per unit/ 
/Cylinders per unit/ 
/Write precomp cylinder/ 
/Reduce write current cylinder / 
/Drive Type/ 

/Use CRC or ECC/ 
/RCT Size/ 
/Number of RCT cepice/ 
/Media (lo wrd)/ 
/Media (hi wrd)/ 
/Sector Interleave (n-to-1)/ 
/Surface to Surface Skew/ 
/Cylinder to Cylinder Skew/ 
/Gap size 0/ 
/Gap size 1/ 
/Gap size 2/ 
(ee size 3/ 

ne size/ 

fits cylinders per Unit/ 

/MSCP Gr per Cylinder/ 
/MSCP Tracks i Group/ 
/Max allowed bad spots per surface/ 
/Bad spot tolerance (bytes)/ 


/Controller Initialization Timeout/ 

/Controller never advanced to next step/ 

/Controller can not execute local programs or non STD DUP dialog program/ 
/NXM Trap at controllers IP address 

/No Interrupt occurred after SA sei ied/ 


F4 
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SEQ 0044 
DISK PARAMETER QUESTIONS , 


1891 012154 OF1I1: ASCIZ /Bad Response Packet returned/ 

1892 012211 ODFle: ASCIZ i “Sh e error ctlr offline/ 

1893 012245 DF13: ASCIZ (eo Progress shown after a cmd had timed out/ 

1894 012321 ODF14: ASCIZ T CMD time_out after another CMD time_out/ 

18S5 012402 OFi5: ASCIZ TaMAF otal error was reported when ng, local program/ 

1896 012472 OF16: SCIZ /S#NSAA Special was reported when nee ocal program don't know how to handle it/ 
1897 012614 SFO: ASCIZ /DUP protocol Error, unexpected nessage/ 

1898 012663 SF1: ASCIZ — YSTEM is NOT in manual mode/ 

1899 012724 SF100 ASCIZ ames or Coleued Controller Interrupt/ 

1900 012777 HRDO: ASCIZ iret Format error/ 

1901 013022 SFTO: SCIZ /Controller in an unexpected ACTIVE state/ 

1902 013073 SFT1: ASCIZ /Wrong Model Number on controller/ 

1903 013134 PBO: ASCIZ /sNSA’ l # listed #06/ 

1904 013163 PB1: ASCIZ pms wg seg SA step bit S068A,Received in SA #06/ 

1905 013245 PB3: ASCIZ /#NSAAsking for Format Parameter table/ 

1906 013313 PB4: ASCIZ /sNSAReceived valid Format Parameter table/ 

1907 013365 PBS: ASCIZ /sNSAOn UNIT #068A, #06 Bad Blks were found during Format/ 

1908 013456 PBé6: ASCIZ /s#NSAOn UNIT 068A, #06 nee Blks were found during Verify pass #06/ 

1909 013560 PB7: ASCIZ /sNsADUP cee = Type: 

1910 013612 PB8: ASCIZ /s#NSADUP message number: £06/ 

1911 013646 PB9: ASCIZ /sNsSAMSCP  Conttel ler mode | # : 8D3/ 

1912 013710 PB10: ASCIZ /sNSA Microcode version # ; #D3/ 

1913 013752 PB11: ASCIZ /sN*AController is IDLE when it should be ACTIVE running format program/ 
1914 014061 PB13: ASCIZ /sN/ 

1915 014064 PFe: ASCIZ /#NSNSAFinished local ats ram without procedure error/ 

1916 014151 PBFO: ASCIZ /sNSAFormat Parameter table entry at byte SO06SNSAis out of range/ 

1917 014251 PBF1: ASCIZ /sNsAFormat Parameter table entry at byte S06SNSAis incompatible with entry at byte #06/ 
1918 014400 PBF2: ASCIZ /#NSAUNIT S068A does not exist on controller/ 

1919 014454 PBF3: ASCIZ /#NSAUNIT #068A does exist but doesn't respond on controller/ 

1929 014550 PBF4: ASCIZ /sSNSAUNIT #068A is write protected | / 

1921 014613 PBFS: ASCIZ /sNSAWrite Fault detected on UNIT #06/ 

1922 014660 PBF6: ASCIZ /sNSAAttempt to step hd #038A at cyl #03A failed on UNIT #06/ yl 
1923 014755 PBF?: ASCIZ /sSNSAAttempt to format hd #038A at cyl 038A failed on UNIT #06/ , 
1924 015054 PBFB: “ASCIZ /#NKATo many Bad Blocks Yetal Bad Blocks 2067 

1925 015144 PBFY: SCIZ /SNSADisk Controller model : 

1926 015204 PBF10 ASCIZ /ssNSA Microcode version : <D3/ 

1927 015244 PBlicrn: .ASCIZ ere CRN #068A, posal ves CRN #06/ 

1928 015314 PBilop: .ASCIZ /#NSACMDpkt Opcode #068A,RSPpkt Opcode #06/ 

1929 015366 PBilsts: .ASCIZ /sN#AResponse pkt status 806/ 

1930 015422 PBilend: .ASCIZ /#NSANo end bit(200) in response packet endcode/ 

1931 015501 PB11GDS: .ASCIZ /s#NAGet Dust Status cmd/ 

1932 015531 PBLIESP: .ASCIZ /#NSAExecute Supplied Prg cmd/ 

1933 015566 PBIIELP: .ASCIZ /s#NSAExecute Local Prg cmd/ 

1934 015620 PB11SD: .ASCIZ /s#Ns#ASend Data cmd/ 

1935 015542 PB1IRD: .ASCIZ ere Data cmd/ 

1936 015667 PB11AP: .ASCIZ /sNsSAAbort Prg cmd/ 

1937 015711 pblisO: .ASCIZ /sNSAsts: successful/ 

1938 015736 pblisi: .ASCIZ /sNwAsts: Invalid Command/ 

1939 015770 pblis2: .ASCIZ /#NSAsts: No Region Available/ 

1940 016026 pbils3: .ASCIZ /SN#Asts: No Region Suitable/ 

1941 016063 11 ASCIZ /sNSAsts: Program Not Known/ 

1942 016117 pblis5: .ASCIZ /#NwAsts: Lo Fel lavad 

1943 016146 pbiils6: .ASCIZ /s#NSAsts: Standalone/ 

1944 016173 pbils9: .ASCIZ /sNwAsts: Host Buffer Access error/ 

1945 016236 11 ASCIZ /#N#AUnknown command OPCODE received in timeout loop ae sree 
1946 016322 pbliwil: .ASCIZ /sNs#sAUnknown command CRN received in command 4 oer 3 ji 

1947 016413 pbi201: .ASCIZ /#SNSASA er: Envelope\packet Read (parity or timeout)/ 





G4 
1948 016477 
564 


1953 017011 
1954 017064 
1955 017120 


1970 020423 
1971 
1972 020452 


1973 020520 
1974 020561 
1975 
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QUESTIONS 
pb1202: .ASCIZ 
pbi203: .ASCIZ 
pbl2 ASCIZ 
pb1205: .ASCIZ 
pbi2 ASCIZ 
pb1207: .ASCIZ 
pb1206: .ASCIZ 
pb1209: .ASCIZ 
pb1210: .ASCIZ 
pbi211: .ASCIZ 
pbi2i2: .ASCIZ 
pob1213: .ASCIZ 
pb1214: .ASCIZ 
pb1215: .ASCIZ 
pb1216: .ASCIZ 
pb1217: .ASCIZ 
pb1218: .ASCIZ 
pb1219: .ASCIZ 
pb1220: .ASCIZ 
pbi221: .ASCIZ 
pbi222: .ASCIZ 
pie ASCIZ 

Ble: ASCIZ 
PBsf0 ASCIZ 
DRPunt: .ASCIZ 
TYPASC: .ASCIZ 


15-Jan-87 14: 


/#NSASA er: 


: Cont 
: Controller RAM parity 
: Controller ROM parity/ 
: Queue Read igeri'ty or timeout )/ 

: Queue Write Leory y 

: Interrupt Master/ 

: Host Access Timeout (higher level protocol dependent )/ 
: Credit Limit Exceeded / 

: Bus Master Error/ 

: 4 stic Controller Fatal error/ 

: Ins 
: a yarey 4 eelahniad 
: Int Write Error 


: MAINTENA 
: Controller RAM error (non-parity)/ 
: INIT sequence error/ 

: High level preeece 6 | hla error/ 

: Purge\poll / 

+. ameoiee Register read error (parity or timeout)/ 


33 Page 22-3 


Envel acket Write (parity or timeout)” 
roller ROM and RAM parity/ . 


or timeout )/ 


ruction Loop Timeout/ 


MAINTENANCE READNURTTE Invalid Region Identifier/ 
NCE WRITE Load to non-loadable controller/ 


ardware failure 


Attemp Hi a port data transfer mapping when option not present/ 


PENKASA Vaiue (oct) #06 


/SNSADUP._ type 
7SNSNBARQDX D 
/SNSAPLEASE 


#06%A message number #06/ 
DRIVE S06%A finished. / 
TYPE ANSWER to controller question or just <return>/ 


SEQ 0045 


= 


.MAIN. MACRO VOS.03 Thursday 15-Jan-87 14:33 Page 23 
| FORMAT Messages 


EE 


1979 .sbttl FORMAT Messages 

1980 : 

+43 ; queries 

1983 020660 qfuit: ;.byte 2., .b.spl ; Unit Info Table? core #2) 
1984 020660 -asciz sitihéntering UIT#028A: on drive number #D3% 

1985 020735 qfdat: ;.byte 0.,.a ; ; Dat te? (que #0) 

1986 020735 ‘asciz ‘Enter "Gate <MM-DD-YYYY> 

1987 020766 dfunt: ;.byte 1. ,.a.def ; Unit? (def #1) 

1988 020766 .asciz —— unit number to format <0>: 

1989 021027 dfbad: ;.byte 4.. f e Bad? (def #4) 

990 0210 -asciz ‘Use. existing bad block information <N>;! 

1991 021077 dfdwn: ;.byte 5.,.a.def ; Downline? (def #5) 

1992 021077 asciz ‘Use “son line load <Y>: 

1993 021127 dfcon: ;.byte 6., ; Continue? (def #6) 

994 0211 asciz "Cont inue if bad block information is wy’) iene <N>:! 


1996 
1997 0 
1999 


qfser: ;.byte 


.asciz 
ASK . ANSWER : 
.asciz 


” 


‘ans>' 


Serial #? (que # 


a.que 
‘Enter non-zero serial number <8-10 pS ms Mai ' 


oy ; Informational Messages 
2002 021277 sfbegt: ;.byte 0.,.a.inf ; Begin Cinf #0) 
2003 021277 .asciz 'S#NSAFormat Begun’ 
021320 sfdont: ;.byte »-8.iNn ; Complete (inf #1) 

2005 021320 .asciz ssAF ormat complete’ 
2006 021 sfrevt: ;.byte 2., nf ; # of Revectored LBNs Cinf #2) 
2007 021 asciz ‘# "tevectored LBNS‘ 
2008 021366 sfrit: ;.byte 3., # of primary ... Cinf #3) 
2009 021366 -asciz ‘®# Primary revectored LONS’ 
2010 021420 sfr2t: ;.byte 4. ; # of secondary ... Cinf #4) 
2011 021 ‘asciz 's Secondary/tertiary revectored LBNS' 
2012 021465 sfrebt: ;.byte 5. f Bad RCT blocks ... Cinf #5) 
2013 021465 asciz ‘# ‘bad locks in the RCT’ 4. mee to data errors’ 
2014 021545 sfdbbt: ; byte 7., # of Bad DBNs ... Cinf #7) 
2015 021 asciz ‘# ‘baa Blocks in the BN’ area due to data errors’ 
2016 021625 sfxbbt: ;.byte 9., #o XBNs ... Cinf #9) 
2017 0216 asciz ‘# ‘baa Blocks in the XBN’ area due to data errors’ 
2018 021705 sftryt: ;.byte 11., ; # of Retries (inf #11) 
2019 021705 asciz ‘# Biocks retried on the ‘check S gece, 

20 021750 sfrbbt: ;.byte 14.,.a.in ; ad RBNs ... (inf #14) 
2021 021750 ‘asciz ‘s Bad RENS' 
2022 021763 sfcylt: ;.byte 15., ; Formatting Cyl Cinf #15) 
2023 021763 asciz oll Cyl #' 
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oe 


2025 Gr 
cose ; Successful Termination Messages 
202 i2., a.ter 


8 
2029 022004 
2030 
2031 022036 
2032 022062 
2033 
2034 
2035 022107 


sos 022107 

2038 022136 efsndt: ;.byte 2., ; Send Error (fat #2) 

2039 022136 .asciz ahaa - SORT send error’ 

2041 022164 efcmdt: ;.byte 3.,.a.fat ; Command Error (fat #3) 

eon 022164 .asciz dishUneuccessful pn * 

5044 022215 efrevt: ;.byte 4., ; Receive Error (fat #4) 

2045 022215 -asciz ahaa - ORT receive error’ 

2047 022246 efbust: ;.byte 5.,.a.fat ; Bus Error (fat #5) 

sone 022246 .asciz ‘#NSAQ-Bus I/0 error’ 

2050 022272 efinit: ;.byte 6.,.a.fat ; Format Init Error (fat #6) 
2051 022272 .asciz  ahAF ormatter initielizetien error’ 

2053 022335 efnut: ;.byte 7.,.a.fat ; Unit nonexistent error (fat #7) ~ 
sons 022335 .asciz ‘NsANonexistent unit number’ 

2056 022371 ; DBN/XBN Format error (fat #8) 


2057 022371 
2058 

2059 022460 
2060 022460 


2061 
2062 022547 


.byte Reformat Worked (ter #12) 
sffeut: asciz SNA CT used successfully’ 
; sbyte 13.,.a.ter ; Reconstruct Worked (ter #13) 
sffent: .ascii ‘SNSAFCT was not used’ 
.asciz ‘SNSAFormat completed’ 
; Error messages 


efstat: ;.byte 1 


.,-8.fat ; Stetus Error (fat #1) 
.asciz ‘SNSAGET STATUS failure’ 


efdxft: ;.byte 8., 
.asciz | aisshOBNSXBN format error (drive FORMAT command fai led)' 


effcct: ;.byte ; FCT copies error (fat #9) 
.asciz ane does not have enough good copies of each block’ 


efsekt: ;.byte 10.,.a.fat ; Seek error (fat #10) 


2063 022547 asciz ‘SNSASEEK error’ 

2065 022566 efrect: ;.byte il., ; RCT copies error (fat #11) 
5066 022566 -asciz Taine y= not have onus good copies of each block’ 
2068 022655 eflbft: ;.byte 12.,.a.fat ; LBN format error (fat #12) 
soe 022655 .asciz ‘SNSALBN format error (drive FORMAT command failed)’ 
2071 022740 effewt: ;.byte 13.,.a.fat ; FCT write error (fat #13) 
or 022740 .asciz ‘SNSAFCT write error (check write protect switch)’ 
2074 023021 efrert: ;.byte 14.,.a.fat ; RCT read error (fat #14) 
a0 023021 .asciz ‘SNSSR2CT read error’ 

2077 023044 efrewt: ;.byte 15.,.a.fat ; RCT write error (fat #15) 
sore 623044 .asciz ‘SNSARCT write error’ 

2080 0235070 ; RCT full error (fat #16) 


2081 023070 


efrceft: ;.byte 16.,.a.fat 
‘asciz ‘SNSARCT full’ 
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SEQ 0048 

FORMAT Messages 

2082 

2083 023105 effcrt: ;.byte 17.,.a.fat ; FCT read error (fat #17) 

aon 023105 .esciz ‘SNSAFCT read error’ 

2086 023130 effcnt: ;.byte 18.,.a.fat ; FCT nonexistent error (fat #18) 

2087 023130 .asciz ‘SNSAFCT nonexistent’ 

2089 023154 effcdt: ;.byte 19.,.a.fat FCT downline load error (fat #19) 

or 023154 asciz ‘SNSAFCT Down-line load error’ 

2092 023211 eftmot: ;.byte 20.,.a.fat ; Drive timeout error (fat #20) 

2093 023211 .asciz ‘SNSADrive init timeout’ 

2095 023240 efillt: ;.byte Phas a.fat ; Illegal response error (fat #21) 

sone 023240 -asciz ‘SNSAIllegal response to. star*-up question’ 

2098 023312 efwart: ;.byte 22.,.a.fat Head error (fat #22) 

st 023312 ‘asciz ‘SNwAW WARNING - possible head adoressing problem - run diagnostics’ 

2101 023413 efinpt: ;.byte 23... a.fat ; Input error (fat #23) 

ois 023413 .asciz SNSAINEUT Error ' 

2104 023434 efmedt: ;.byte 24.,.a.fat ; Media error (fat #24) 

$102 023434 .asciz ‘si*AMedia degraded’ 

2107 023457 efunrg: ;.byte 1.,.a.fat ; Status Error (fat #1) 


tye 023457 .asciz ‘sNsAUnrecogonized drive’ 


«4 
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SEQ 0049 
FORMAT Messages ’ 

2111 

2il2 

tr 3*eee SEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE HEHEHE EHH HEHEHE 

2115 ; ASCII text added to allow a bad status returned by an MSCP command to 

/ 2116 : be reported. ; 

tH 3 The format of the message is MEXYYY. 
2119 ; owe oe Command issued was an MSCP Command 
2120 : e wey MSCP status code in hex 

2121 $ ae MSCP status code sub-code 

2122 : - GUK 

2123 : 

2124 EPPO EE EEE EE HEE HEHEHE EHO EE EHO EH EFEEEE EEE EEE FEES EE EE FEES ESE SESE EE SE FFE SEH OHHHES 

125 


2126 023507 ME10: .asciz 
2127 023533 ME20: .asciz 
2128 023557 MESO: .asciz 
2129 023651 ME31: .asciz 
2130 023731 ME32: .asciz 
2131 023767 ME34: .asciz 
2132 024041 ME38: .asciz 
2133 024141 ME40: .asciz 
2134 024175 MESS: .asciz 
2135 024263 MES6: .asciz 
2136 024347 4 21h -asciz 


‘sNsAInvalid Command’ 
‘sNsACommand Aborted’ Y 
‘SNSAUNIT S028A is unknown or online to another controller’ 
‘SNSAUNIT S028A is disabled or no volume mounted’ 
‘SNSAUNIT S028A is inoperative’ _ 
‘SNSAUNIT S028A is a duplicate unit number’ ; . 
‘SNSAUNIT S028A has been disabled by field service or diagnostic’ 
‘SNSAUNIT S028A is available’ . 
‘@NSAUNIT S028A is not formatted with 512 byte sectors’ 
‘SNSAUNIT S028A is not formatted or is FCT corrupted’ 
‘SNSAUNIT 028A FCT or RCT is unreadable due to an uncorrectable ECC Error’ 
‘SNSARCT search algorithm has encountered an invalid RCT entry’ 
‘SNSANO replacement block avaiiable.sNs4Replacement was attempted for a bad block.’ 
‘SNSAUNIT S028A is software write protected’ 
‘SNSAUNIT SO028A is hardware write protected’ 
‘sNsACompare Error’ : 
:  .asciz ‘SNSASector was written with Force Error modifier’ 
2143 025132 ME82: .asciz ‘SNSAInvalid Header’ 
‘sNSAData Sync Timeout’ 


3 “asciz ‘sNSACorrectable error in ECC field’ 
2146 025246 E87 .asciz ‘sNsAUncorrectable ECC Error’ 
7 302 .asciz ‘SN#AQne Symbol ECC Error’ 


SNSAOdd Transfer Address’ 
SNSAOdd Byte Count’ 
SNSANon-Existent Memory Error’ 
SNSAHost Memory Parity Error’ 
SNsAInvalid Page Table Entry’ 
: iz ‘SNSASERDES overrun or underrun error’ 
2162 0261350 MEA2: .asciz ‘SNSAEDC Error’ 
2163 026146 MEAS: .asciz ‘sNsAInconsistent internal control structure’ 
164 026222 MEA4: .asciz ‘sNsAInternal EDC Error’ — 
2165 026251 MEAS:  .asciz ‘SNSALESI Adapter Card parity error on input’ 
2166 026325 MEA6: .asciz ‘SNSALESI Adapter Card parity error on output’ 
2167 026402 MEA7: .asciz ‘sNSALESI Adapter Card “cable in place” not asserted’ 
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FORMAT Messages 


2168 026466 MEAB: .asciz 
2169 026531 MEA9: .asciz 
2170 026565 MEB1: .asciz 

71 026626 MEB2: .asciz 


‘sNsAController overrun or underrun’ 
‘sNSAController Memory Error’ 
‘SNSADrive S028A command time out’ 
2171 iz ‘SNsAController detected transmission error’ 
2172 026701 MEBS: .asciz ' ositioner Error’ 
2173 026726 MEB4: ~.asciz ‘SNSALost Read/Write peady during or between transfers’ 
2174 027014 MEBS: .asciz ‘'SNSADrive S028A clock dropout’ 
2175 027052 MEB6: .asciz ‘SNSALost receiver ready for transfer’ 
2176 027117 MEB7: .asciz ‘SNSADrive S028A detected error’ 
2177 027156 MEB8:  .asciz ‘sN#AController detected pulse or state parity error’ 
2178 027242 MEB10: .asciz ‘sN#AController detected protocol error’ 
2179 027311 MEB11: .asciz ‘SNSADrive S028A failed initialization’ 
2180 027357 MEB12: .asciz ‘SNSADrive S028A ignored initialization’ 
sins 027426 MEB13: .asciz ‘sN#AReceiver Ready Collision’ 


2183 : End of MSCP Error Message Text 


2184 FEE E EEE EEE EEE EEE EEE EEE HEF E HEHE EEF EF ESE EEE FEF EFESES HFEF ESE F EPH EH HHH HHH eee tee 
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SEQ 0051 
FORMAT Messages | 
2186 | 
| 2187 | 
| 21 PEPE EH EEE EES EFEEFEFEFESEEFEFESE SESE EEE FEFESES HFEF ES HFEF ES HE FEF ESE SHEESH PFET ESS 
2189 H 
2150 ; Messages that “yt which MSCP command was executed, MSCP status errors 
Sig : and Bad Bytes found in a logical block. GJK 
2193 POPPE EEE EE EEEEEEEEEEEEHEEDEEEEHEEEEEEEHEEEESEEEEEEESESEESEEEEEEEEEEEEEEEEEEDS 
2194 
2195 027463 MSCPsts: .asciz ‘SN#AResponse Packet Status “06sN’ 
2196 027524 MSCPend: .asciz 'SNSANo end bit(200) in response packet endcode’ 
2197 027603 MSCPGUS: .asciz ‘SNSAGet Unit Status command’ 
2198 027637 MSCPSCC: .asciz ‘SNSASet Controller Characteristics command’ 
2199 027712 MSCPONL: .asciz ‘SNSAOn Line command’ 
2200 027736 MSCPRD: .asciz ‘'SN#ARead command’ 
2201 027757 MSCPWRT: .asciz ‘'SNSAWrite command’ 
2202 030001 MSCPOP: .asciz ‘SNSACMDpak Opcode 068A, RSPpak Opcode #06‘ 


BTFND: .asciz ‘SNSATotal bad track(s) found: sD4sN’ 
2205 030121 BIRPT: .asciz ' SNSAT rack SD48A (decimal) has #D3#A (decimal) bad bytes’ 
2206 030211 DONE: ascii ‘#NSNSADisk has been formatted and all available’ 
2207 030270 -asciz ‘SNSALBNs have been tested for errors’ 
soe 030335 DSKUT: .asciz ‘SNSNSATesting LBNs on disk . 


weererrvoverrersvererevoerrrerrerererrrererrerrr eter iti t tii t itt itt i tii t titi tits 


2210 
2211 030376 RCVBUF: .BLKB 17000 ;Buffer to check data sent to disk - GUK 
2212 list bin 

2213 .even 





Senna ceaaaacaaaaaaaaaaacaaaaaaaaaaaaaaaaaaaaaaaaaaaaacaaaaaaaaaaaaaaaaaaaaacaacasaaaaaaaaa 
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SEQ 0052 

Global subroutines 

rte .sbttl global subroutines 

2218 {RRAREREAEREERRESRARESEREERREREEEERAEERAEERA  ERARERERERERRAEERRERRERE 

2219 ; 

2220 $ THIS ROUTINE WILL ALTER THE CPU INTERRUPT LEVEL TO THREE, 

2221 : INITIATE THE MUT POLLING AND WAIT A REASONABLE AMOUNT OF 

2222 : _TIME HOPING THAT THE MUT WILL INTERRUPT. 

2223 ;There is really 2 sections to this routine. One section awaits the 

2224 ;normal course of a command by waiting for an iterrupt and then going | 

oo ;The other course of the routine is to handled timeout commands. This is 

2227 3a little more difficult. If there is a command that is time-out the 

2228 ;program will do a GETDUST status command to find out the status. IF 

2229 swe get an interrupt there are 2 possibilties. 

2230 ; 1. a response to the Get Dust status command. Handled like any other 

2231 ;command. ‘ 

2232 ; 2. @ response to the timeout command in which case we handle it instead 

2233 ;of the normal handler located in the program right after it was issued. 

2234 ;This means that there is a GET DUST reepenes, pending which we must handle 

2235 ;shortly after. As soor as we handle the GET DUST response we check to 

2236 ; make sure we handled the timed out command by checking the LSTCRN register 

2237 ; and return to the DUP dialog mode by checking the DUP message type and 

4 sresponding to the intial timed out command 

2240 ; >>> waiting for initial or timed out command 

2241 3 interrupt received 

2242 : just jump to vector address location 

sees “ ‘wi on site response handler located right after cmd loader in the program 

2245 : } if no interrupt then save cmd info & submit GETDUST command 

2246 z }>>>>>>>>>>>>>>>>>>>>>>>>>>>>> waiting for GETDUST status & timed out command 

2247 i) >) responses, if no interrupt then fatal error 

2248 +} interrupt received 

2249 ; test for response to GET DUST or TIMED_OUT cmd 

22 :>) handle response here 

2251 ; if response was GET DUST check if we handled 
-— 22ede ; the TIMED_OUT cmd elreedy 

2253 ; mean yentmamn eres (yes, LSTCRN = 0) go back to DUP dialog mode 

2254 ;) by check ing DUP type and responding 

2255 p) eccceececececececcecccccecce (no, LSTCRKN = #) load TIMED OUT cmd Vector, 

2256 ; ) Opcode, CRN goto _top of routine 

2257 5 DEKKER ERE K KKK KEKE KEKE KEKE IF PeSponse Was TIMED. OUT cmd clear LSTCRN 

Soas ; } and wait for GET DUST response 

2260 ; go to DUP dialog routine 

2261 ;RRAAAAAEAREAASARAAAAAAEAAAAAAAEAAEALAAAAAAAAAAAAAAAAAASAAARAAAAAALALES 

2262 

2263 

sss 047376 POLLWT: 

2266 047376 106427 000140 pollw: mtps #140 ;Drop cpu level to three. 

sce! 047402 005777 132716 tst alPreg Tell mut to start polling. 

2269 047406 005037 051162 clr time ;reset timer 

2270 047412 012737 000001 002576 mov #1,nxttio ;Guarantee nxttim = time + 1 


mov #trp100, d#LKSvet ;load the trap handler address 


2271 047420 012737 051172 000100 
2272 047426 37 000340 000102 mov pr i07 ,aeLKSvet+2 spriority 7 








SSS 





> 
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Global subrout ines 
2273 
2274 047434 052737 000100 177546 23: bis >i té, FOLKS 
2275 047442 023737 002576 051162 15: cmp nxttim, time 
2276 047450 003374 bgt i$ 
2277 047452 042737 000100 177546 bic #bit6, 3LKS 

047460 005237 002576 ine nxttim 

2279 047464 106427 000340 mtps #340 
2281 047470 004737 064316 jsr pe ,BITI5T 
2282 047474 BREAK 
2283 047476 106427 000140 mtps #140 
2284 047502 023737 002574 051162 cmp delay, time 
344 047510 335 bgt $ 
2287 047512 005737 002606 tst recv.done 
2288 047516 001011 bne $ 
2289 047520 013700 002462 mov cmdpak +10, r0 
2290 047524 022700 000002 cmp 298, OOo? 
2291 047530 001403 beq 627$ 
2292 047532 022700 000005 cmp #op.rec,r0 
2293 047536 00100 bne 628$ 
2294 047540 000777 627$: br : 
384 047542 106427 000340 628$:  mtps #340 
2297 047546 004737 064316 jsr pe ,BITIST 
2298 047552 013700 002462 MOv emdpak +10, r0 
$eo8 047556 022700 000001 cmp top.gds, r0 
Si05 047562 001006 bne GDSO 
4 047564 ERRDF 12,df14 
Se02 047574 000137 074424 jmp dropunt 
fd ;GETDUST 
HH 047600 017737 132522 002544 GDSO: mov Avector ,LSTVCT 
2311 047606 013737 002452 002540 Mov emdpak ,LSTCRN 
cele 047614 013737 002462 002542 mov cmdpak +10,LSTCMD 
sole 047622 032737 100000 002534 bit #b i t15,cmdrng+2 
2316 047630 136 bne GDSO 
2317 047632 012737 000016 002446 mov #14. ,cmdlen 
2318 047640 112737 000000 002450 movb #0,cmdlen+2 
2319 047646 112737 002451 movb #dup.id,cmdlen+3 
2320 047654 5237 002452 ine cmdpak 
2321 047660 005037 002454 elr emdpak +2 
2322 047664 005037 002456 clr cmdpak +4 
2323 047670 005037 002460 clr cmdpak +6 
2324 047674 012737 002462 MOV top .gds, cmdpak +10 
sess 047702 005037 002464 clr emdpak +12 
2327 047706 012777 047746 132412 mov #RFDO, @vector 
2328 047714 012737 002352 002526 mov érsppak ,rsprng 
2329 047722 012737 002452 002532 Mov #emdpak ,cmdrng 





;Turn on line clock ; 
sHas 1 second delay expired ? 


iTurn off Line clock 
;Update nxttim ‘ . 
;don't want interrupts while in other 


;routines 

;check for control C 

;turn on interrupts again after check 

;Has total delay been realized??? 

:If so, then exit delay loop 
| 
| 


;is this the first time ? 

sno, execute get dust command 

;get opcode ; 

;1f the command issued was a exec sup. 


;if the command issued was a recv. data 


;don’t want interrupts while setting up 
:for cmd 
;test SA make sure not a fatal error 


; ope 

7 the command issued was a GETDUST 
sSTATUS and timeout big trouble 

;if not go do a GET DUST to find out 
jwhat the situation is 

;type no iterrupt after get dust status 
;command controller dead 

;drop unit and go on 


;save timed out command information 


:store the vector address of timeout 

; command 

store the CRN of the timed out command 
;store the opcode of timed out command 


a aw of ring make sure we 
;OWn | 

:if we don't own it wait until we do 
;load length of packet to be sent 
;load msg type and credit 


;load DUP connection ID 


si load new CRN 


sload up opcode 
ino modifiers 


;NEW VECTOR PLACE 
;load response packet area into ring 
;load command packet area into ring 





——— 
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; SEQ 0054 
| Global subroutines 
| 
2330 047730 012737 140000 002530 mov #140000 , RSPRNG+2 ;PORT OWNERSHIP BIT. 
2331 047736 012737 100000 002534 mov #bit15,CMDRNG+2 : , | 
$358 047744 000614 br POLLWT ;G0 and wait for interrupt 
2334 
2335 i+ 
2336 ; There are only 3 ways out code. 
2337 VIF GETDUST response and TIMED_OUT cmd responce was handled 
2338 ; if LSTCRN = “y go and RSPPAK+10 = OP.GDS+OP.END then 
344 ; back to DUP dialog mode. 
sor 
2341 ; (TIMED_OUT cmd still hasn't returned but * has returned) 
2342 ; if LSTERN = # and RSPPAK+10 = OP.GDS+OP.END t 
2343 ; check if idle or active. if idle then error 
2344 ; check for yrverere in progress indicator if no er ress then error 
2345 ; load LSTVCT into dvector,LSTCRN into ee LSTCMD into cmdpak+10 
2346 ; set response ring ownership to Port Own 
ot ; on” to pollwt. 
2349 OCTIMED OUT cmd r se received before GETDUST response returned) 
2350 ; if LSTCRN = ¢ on SPPAK+10 not= OP.GDS+0P.END then 
Sees ; qleer STO ond 
; jmp to pollwt. 
2353 i+ 
2354 
2355 047746 RFDO: ;INTR TO HERE if GETDUST or TIMED_OUT 
2356 ;command 
2357 047746 106427 000340 mtps #340 ;No interrupts please 
2358 047752 062706 000004 add #4,sp ifix stack 4 for intrpt 
2359 047756 013701 002452 mov cmdpak ,rl ; check command packet CRN 
2360 047762 013700 002352 mov rsppak ,r0 ;check response packet CRN 
2361 047766 020001 cmp rO,ri sAre they the SAME must_be GETDUST cmd 
a3) 047770 001107 bne 3$ :if not it must be the TIMED_OUT cmd 
2364 047772 023727 002362 000201 cmp rsppak +10, #op.gds+op.end ;it should be a GETDUST lets 
2365 ;make sure 
3s eggs ota ether eta ed ea 
prin sunexpected cmd response in time out loop 
seen 050022 000137 074410 jmp unk wn ;error handler 
2370 050026 004737 060352 1$: jsr »RSPCHK ;check the response 
2371 050032 005737 002540 st STCRN ;see if timed out command was already 
2372 sreceived (lstern = 0) 
2373 050036 001004 bne 2s 
2374 050040 062706 000002 add #2,sp ;ad just stack for Timed Out cmd‘s | 
2375 : initial call to POLLWT 
2376 050044 000137 071104 jmp DUPDLG ;if Timed out cmd was Sree received 
gor ;then goto DUP dialog mode 
2379 050050 2s: ;if Timed out command was not received 
2380 ‘ . ;already (LSTCRN not= 0) 
2381 050050 132737 000010 002371 bitb #bit3,rsppak+17 :if server idle then error 
2382 050056 001010 bne 1002$ ;if not check for progress 
<a. 050060 printf #pbil scontroller idle den it should be active | 
2385 050100 013700 002372 1002$: mov rsppak +20,r0 ;check for progress in progress indicator 
2386 050104 013701 002374 mov rsppak+22,r1 


_— 
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Global subroutines 


2387 050110 
2388 

2389 050114 
2390 6 


2399 62 
2400 050170 
2401 
2402 059176 
2403 050204 
404 
2405 
2406 
2407 050210 
2408 
2409 050214 
2410 050216 
2411 050236 
412 
2413 
2414 
ot 050242 
2417 050250 
2418 
2419 050256 
2420 
2421 050262 


2422 050266 
2423 050274 


020037 
001011 


020137 
001006 


013777 


012737 
000137 


020037 
001412 
000137 


013737 
013737 
005037 


004737 
012737 
000137 


002540 
074410 


002540 
002542 
002540 
060352 
140000 
047376 
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002452 
002462 


002530 


1001$: 


printf 


r0, loprgi 


wit 
ri, hiprgi 
001$ : 


1 
11,0F13 
dropunt 


»cmdpak 
LSTCMD, cemdpak +10 
LSTVCT,@vector 


#140000 ,RSPRNG+2 
pollw 


r0,LSTCRN 

4$ 

*#pb1l iwi 
unkwn 

LSTCRN, cmdpak 


LSTCMD , cmdpak +10 
LSTCRN 


pe , RSPCHK 
#140000 , RSPRNG+2 
POLLW 


;see if low word of progress indicator 
;is the same as older value 

Lif it_is then continue 

ssee if high vaule is the same 


;No progress shown after cmd timeout 


;update progress indicator 


;Call forest ress report 

smove T D.OUT omd CRN into cmd 
move ED ~OUT cmd Opcode into cmd 
;load TIMED_OUT cmd interrupt handler 
:address into vector 


:Por t owned 
ae for TIMED_OUT cmd response 


;check the crn with the last CRN from 
ithe timeout command 


Unexpected cmd response in time out loop 
;error handler 


;Timed out command received but Get Dust 
;Status is still in Queue 

sload timed out command values for 
;RSPCHK routine 

;load timed out command values for 
;RSPCHK routine. 

sit it is the timeout command clear LAST 
;CRN ye 


ommand 
‘Beat SuNERSHIP BIT. 
390 wait for GETDUST interrupt 


2432 050300 
2433 050300 
2434 050306 
2435 050310 
2436 

2437 050312 
2438 050320 
2439 050322 
2440 050342 


2477 050720 
2478 


2479 050740 
2480 050746 
2481 050750 


023727 
002001 
000207 


032737 
001013 


052737 


122737 
001022 


004737 
122737 
001032 
105037 
005737 
001011 


000414 


122737 


002342 


051220 


000001 


002551 
002546 


000002 
002551 
051220 


000003 
002551 
051220 


000004 
002551 


051220 


000005 


002551 


000002 


002336 


002336 
002551 


002551 


002551 


002551 


002551 


002551 





8 RERARAEAAAERAEERAREERERRERARAAERAERRAERAEERRARRERRREEAEAEAEAAEAAR AREAS 


Format Progress Report (Done Only for uCode Rev 2 or higher) 


; 
 ReeeRRPAAAAAAAEEAERRERAEEARADAAERRARAEAAEEEARRARAAARARERERRAAARAEEE ED 
RPT: 


22$: 


1$: 


2s: 


3$: 


4$: 


5$: 


cmp 


sr 
| 
cmpb 
bne 
clrb 
printf 
jsr 
printf 


cmpb 
bne 


mednbr , #2 
33$ 


#bit11,UNTF1 
22$ ” 


#FRPTB 
#bit11,UNTFlgs 


t Satie 

oF MTTRK 

pc ,DECasc 

#tmpbuf 

#1 ,hiprgi+l 

2s . 

piorsi et 
rgi 

iis 

— 


PEPE. deprg! hipre! 


#2, hiprgi+l 

ae 
rgi+ 

oF CPR. 

pc ,DECasc 

#tmpbuf 

#3 ,hiprgi+l 

Scat 
rgi+ 

aFCPR. 

pc ,DECasc 

#tmpbuf 

#4, hiprgi+1 

Seals 

iprgi+ 

ascPa. 

pc ,DECasc 

#tmpbuf 

#5 ,hiprgi +1 

63 prg! 

hiprgi+l 


;check microcode rev number ; 
;If rev > or = 2 continue execution 
;If not, don't output progress report 


;Has title already been printed ?? 
:If so, don't print it again 


;Set bit 11 in flag register so title only 
sappears once 

:Is pass = 0 ?? 

s1f not, check for pass = 1 

;Print Gate sg racks, lon #: ” 
;Convert counter to ASCII characters 
;Print lon number 


;Is pass = 1 ?? 

;1f not, check for pass = 2 

;Make sure 8 MSBs are clear 

;4re we just reading defect list ?? 


sYes, print “Reading defect list” 
;Continue with rest of routine 


print “Replacing defect #: ___ on head #: _” 
:Is pass = 2 ?? 
;1f not, check for pass = 3 
;Make sure 8 MSBs are clear 
Print “First check pass, writing lon #: “ 


;Convert counter to ASCII characters 
Print lon number 


:;Is pass = 3 ?? 

;If not, check for pass = 4 

sMake sure 8 MSBs are clear 

;Print “First check pass, reading lbn #: “ 
;Convert counter to ASCII characters 
;Print lon number 


:Is pass = 4 ?? 

:If not, check for pass = 5 

;Make sure 8 MSBs are clear : 

;Print “Second check pass, writing lbn #: “ 
;Convert counter to ASCII characters 

:Print lon number 


:;Is pass = 5 ?? 
;If not, check for pass = 6 
;Make sure 8 MS8s are clear 


SEQ 0056 





FS 
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’ SEQ 0057 
Global subroutines 
| 2482 050754 printf #SCPR ;Print "Second check pass, reading lbn @: ” 
2483 050774 004737 051220 jsr pc ,DECasc ;Convert counter to ASCII characters 
gues 051000 printf #tmpbuf 3Print lon number 
—-«-$48& 051020 122737 000006 002551 6%: cmpb %,hiprgiel =: Is pass = 6 77 | 
2487 051026 001024 bne 7$ ;1f not, then pass = 7 
2488 051030 105037 002551 clrb oiergi +’ ;Make sure 8 MSBs are clear 
2489 051034 printf #TCP ;Print “Third check pass, writing lbn #: “ 
2490 051054 004737 051220 jsr oc ,DECasc ;Convert counter to ASCII characters 
2491 051060 printf ¢tmpbuf ;Print lon number 


2494 051106 001024 bne eee ;1f not, then return to calling program 
2495 051110 105037 002551 clrb Cigrgi ed ;Make sure 8 MSBs are clear 

ori #TCP ;Print "Second check pass, reading lbn #: “ 
2497 051134 004737 051220 jsr pc ,DECasc ;Convert counter to ASCII characters 
2498 051140 printf #tmpbuf 


2499 
2500 051160 000207 8$: return 


2492 
2493 051100 122737 000007 002551 7$: cmpb #7, ,hiprgi+l ;Is pass = 7 ?? 
;Print lon number 


G5 : | 
.MAIN. MACRO VO5.03 Thursday 15-Jan-87 14:33 Page 29 
SEQ 0058 

Global subroutines : 


2503 3 RRARAERARAERERARAREARERAAERREARRARERAREERAEAAERERARAEAERAAAAERAAAALES 
2504 ; 

Seco ; Line Clock Timer Routine 

2507 ; RARAERAEARAREREAAERAERRARAEREAEAERAARERAREAAERAREAERAREREERRREARAEAREERES 
2508 

2509 051162 000000 time: .word :Time in Seconds 

salt 051164 000000 .word 

2512 051166 000000 .word ;Counter for Cycles per Second 
tH 051170 000074 -word 60. ;Cycles per Second 

2515 051172 trp100: 

2516 051172 005237 051166 ine time+4 ;Add a cycle 

2519 051204 003404 ble 10$ 

2520 051206 005037 051166 clr time+4 ;sReinit the cycle timer 
2521 051212 005237 051162 ine time ;Add a second 

2522 ; adc time+2 ;Add carry to high word 
SaS, 051216 000002 10$: rti ;Return from interrupt 


| 
| 

2517 051176 023737 051166 051170 cmp time+4,time+6 Hyonpere to total cycle time 

2518 350 Hz or 60 Hz 


H5 
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Global subroutines 


534 
2535 
2536 


2 
2565 051346 
334 051350 


256 
2568 051354 


2577. 051410 
2578 

2579 051414 
2580 051416 
2581 051420 
2582 051422 


010146 


001344 
105021 
005001 
005002 
012703 
122761 
002404 


002546 
002550 
051430 


051450 
051446 
051452 
051450 
051446 
051452 


000060 


000004 
051450 


051430 
000060 


000001 
000001 
051430 


051430 


051444 
051446 


051444 
051446 
051444 
051446 


051430 


5 hd oe ec ok a A ik dk de ak 
Octal number to ASCII Decimal number 


ri = address of ascii decimal data 
r0 = address of octal data word 


: 
i a kk ik ik dk iii kk a I RR a te 


DECasc: 


rr 
nw 


PURLO: 





r1,-( ) 
Leora) .dtap 


hiprgi ,dtmp+2 
Stmpbute2, rl 
ri,-(sp) 


r 
dtbl(r2),dtmp 
st 

ote +2(r2),dtmp+2 
dtbl(r2),dtmp 
—s 

i +2(r2),dtmp+2 


r 
#60,r3 
r3,(ri)+ 


#4,r2 

dtbl(r2) 

1$ 

(rl)+ 

ri 

re 

#tmpbuf +2,r3 
$66, Snpheet “Bi rk) 


4$ 

#bitO,r2 

2$ 

#bitO,r2 

Sapiel NG Ro Eewre 
r 


1$ 
tmpbuf +2(r1),(r3)+ 


(sp)+,r3 
(sp)+,r2 
(sp)+,rl 
(sp)+,rl 


;octal number address 
;octal number address 
s;asciz buffer address 


;clear the decimal table pointer 

;clear decimal digit. 

;increment decimal digit 

;subtract power of ten from accumulator 


:if not negative subtract another 
;adjust accumulator so positive 


;adjust decimal digit 

;convert decimal to ascii 

smov ascii digit text into buffer 
;increment table egrntar 

;check if thats all 


;store null 


:Purge leading zeroes of counter convrsn 
;Set up addresses, flags, and/or indices 


:Is byte a leading 0 ?? 

;Byte must be a digit 

sByte must be a null 

:If no non-zero digits have been found, 
#90 to next byte ; 
:flag first non-zero digit found 

smove byte to proper location in buffer 
; ate pointer 

;Check next byte 

smove null and end 


;address preserved 
srestore original rl 





SEQ 0059 


—— 


.MAIN. MACRO VO5.03 Thursday 15-Jan-87 14:33 Page 30-1 


; SEQ 0060 
Global subroutines 
iat 051424 000207 return 
2585 051426 045 101 tmpbuf: .ascii /#A/ Provide buffer for ascii data 
2586 051430 -olkb = 11. 310 bytes for digits, 1 for null 
8 even 
2589 051444 000000 dtmp 0 
Si 000000 0 
2591 051450 dtbl: 
2592 051450 145000 145000 ; 1.0 E09 
2593 051452 035632 35632 
1 160400 ; 1.0 E08 
002765 2765 


2596 051460 113200 113200 ; 1.0 £07 
2597 051462 000230 230 
2598 051464 041100 041100 ; 1.0 E06 


2599 051466 000017 17 
2600 051470 103240 103240 ; 1.0 E05 
2601 051472 000001 
2602 051474 023420 23420 ; 1.0 E04 
2603 051476 000000 0 
2604 051500 001750 1750 ; 1.0 E03 
2605 051502 000000 0 
2606 051504 000144 144 ; 1.0 E02 
2607 051506 000000 0 
2608 051510 000012 12 ; 1.0 E01 
2609 051512 000000 0 
2610 051514 000001 1 ; 1.0 E00 
2611 051516 000000 0 

0 ; endflag 


2612 051520 000000 
2613 
2614 


.even 


JS 
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, SEQ 0061 
Global subroutines 

a 
2618 fRRRRREEAEEEAEEEEAEAEAAAEREEEAAEEEEEEEAERERAAAEARESALERAEREASAEESESALLES 
2619 : HARD INITIALIZE 
2620 ; This routine hard initialize the disk controller so that commands 
2621 ; can be issued. This routine is governed by the UQSSP spec. 
2622 ; This format starts by initializating 
2623 ; rl = ptable address 
2624 ; r3 = step bit mask 
2625 : r4 = SA address 
2626 
2627 
2628 051522 HRDINT: 
2629 051522 106427 000140 mtps #140 
2630 051526 013704 002324 mov ipreg,r4 
2631 051532 005024 1S: elr (r4)+ ; start initialization IP and put SA 
2632 051534 012703 mov aie r3 
2633 051540 012746 000024 mov -(sp) 
2634 051544 004737 052626 jsr ~. ion slooking for step 1 >>>>>>>>>>>>>>>>> 
2635 051550 005726 st (sp) 
2636 051552 737 064316 4$: jsr bitiST ;Look for fatal SAreg error 
2637 051556 032714 it arate (r4) :check sa reg for step 1 bitll =0 >1 
2638 051562 001 6$ 
2639 051564 005737 002602 tst timeout 
2640 051570 001370 bne <0 
2641 051572 571 br timout 
2642 051574 013700 002326 6$: mov vector ,r0 sresponding in step 1 <<<ceeecccceccc 

051 000241 cle 

051 006 asr ro 
2645 051604 asr rO 

051 700 bis #<bitl5+bit7>,r0 ;= VECTOR/4 
2647 051612 013701 002326 mov vector ri 

0516 012721 052730 mov #saint,(rl)+ iyeus up pos location into vector 
2649 051622 012711 000140 Mov #140,(r1) ower the 
2650 051626 010014 mov r0,(r4) | eneble tnPeRsuPye, set 1 cmd rng and 

+i Psp 

051630 012703 010000 nov #hit2,r3 ™ 
2653 051634 012746 000024 mov -(sp) 
2654 051640 004737 052626 sr “9 me slooking for step 2 >>>>>>>>>>>>>>>>> 
2655 051644 0057 rst ( sp)+ 
2656 051646 004737 064316 445: sr pc, ,bitiST slook for sa error 
2657 051652 032714 010000 it #oit12,(r4) ;check step 
2658 051656 001007 one les 
265° 051660 005737 002602 tst timeout 
2660 051664 001370 bne 44$ 
2661 051666 032714 004000 bit #bitli,(r4) icheck step 
2662 051672 001151 one wrngstep 
ae? 051674 5 br timout 
2665 051676 012700 002526 12$: mov @RSPRNG , RO sresponding in step 2 <<cccececcecece 
2666 051702 042700 000001 bic #bi tO, r0 3no adapter purge interrupts 
2667 051706 010014 Mov r0,(r4) ;load low ringbase address of the 

) ;communications area 
2669 051710 012703 020000 mov #bit13,r3 
gt Sires Saree ee ee ie eit ey 
sr pc, sleep ; Loox i or st >>>>>>>>>>>>>>>>9 

5672 051724 005726 ~ Se oo} 7 oa = 


KS 
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SEQ 0062 
Global subroutines 


2673 051726 004737 064316 4445: PL pe, bi tiST ;look for sa error 
2674 051732 032714 020000 it itis. (r4) ;check step 
2675 051736 001012 bne 133 
2676 051740 737 002602 tst timeout 
2677 051744 001370 bne 444$ 
2678 051746 032714 004000 bit itil, (r4) ;check step 
79 051 001121 bne score 
2680 051 032714 010000 bit $i 2. (r4) ;check step 
2681 051760 001116 bne wrngstep 
051762 br timout 
2684 051764 013701 002326 13$: mov vector,rl 
2685 051770 012721 0527 mov esaint,(rl)+ ;load up interrupt loacation into vector 
2686 051774 012711 000340 mov #340,(r1) safter step i we want no interrupts 
suntil expect 
2688 052000 005014 clr (r4) ;load low ringbase address of the 
9 * communications area 
052002 012703 mov #bit14,r3 
2691 052006 012746 000024 Mov #20. ,-(sp) 
2692 052012 004737 052626 jst sleep slooxing for step 4 >>>>>>>>>>>>>>>>> 
2693 052016 005726 st ‘ 
2694 052020 004737 064316 4444$: jsr pe, bitiST slook for sa error 
2695 052024 032714 it #biti4,(r4) ;check step 
269% 052030 001015 18$ 
2697 052032 005737 002602 tst timeout 
2698 052036 001370 bne 44445 
2699 0 032714 004000 bit itil, (r4) ;check step 
2700 052 001 bne arngecee 
2701 052046 932714 010000 bit #b ae r4) ;check step 
2702 052052 001061 bne moertee 
2703 0520 032714 020000 bit # i .. (r4) :check step 
2704 052060 001056 bne wrngstep 
4s 052062 35 br timout 
2707 052064 011401 18$: mov (r4),ri sidentify the controller number and 
;microcode version number 
052066 010102 mov ri,r2 
2710 052070 006201 asr ri shift version * out 
2711 052072 006201 asr rl 
2712 052074 00620 asr ri 
27*2 052076 006201 asr rl 
2/14 0521 042701 177400 bic #177400, r1 iclear top bits off 
2715 052104 010137 002340 mov ri,mdlnbr l number storage 
2716 052110 042702 177760 bic #177760, r2 sclear model number out 
2717 052114 010237 002342 Mov r2,mednbr 
2718 052120 122701 7 cmpb Mrqdxi,rl ;check for Model # 
2719 052124 001454 beq it 
2720 052126 122701 000023 cmpb rqdx3,ri scheck for Model # 
$igh 052132 001451 beq it 
2723 052134 ERRSOFT 6,SFT1 ; DEVICE FATAL wrong model #, wrong 
$15 052144 052737 020000 002336 bi #bit13,UNTFL et mode | fl 
is 1 . ;se nown number in unit 
siee 052152 000137 052256 jmp gobit - ;drop unit and go on _ 
2728 052156 timout: 
2729 052156 ERRDF 5,DF1 ; DEVICE FATAL controller timeout 
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, SEQ 0063 
Global subroutines ; 
2730 : i hard init 
2731 052166 Printf #pbi.r3,(r4) xpected SA step bit xxxxx set, 
: 5 pecatend yyyyyy 
4k 052212 000137 074424 jmp dropunt :drop unit and go on 
2735 052216 wrngstep: 
2736 052216 ERROF 4,DF2 ; DEVICE FATAL wrong step bit set 
7 ; after interrupt 
site 052226 Printf #pbi.r3,(r4) : eee SA step bit xxxxx, received 
in yyyy 
Sat 052252 000137 074424 jmp dropunt ;drop wl and go on 
2742 052 GOBIT ‘ 
16} 052256 012714 000001 mov #1,(r4) ;Controller is NOW INITIALIZED 
2745 052262 012700 177777 Mov #-1,r0 
2746 052266 000240 11$: — ;waste just a little time 
Ld 052270 077002 r0,11$ 
2749 052272 Semd: 
2750 052272 GETDUST : :Do a Get Dust Status command start 
052272 032737 100000 002534 GDS2: bit #bit15,cmdrng+2 itest ownership of ring make sure we own 
He | 
001374 bne ;if we don't own it wait until we do 
052302 012737 000016 2 mov #14. ,cmdlen oes — of packet to be sent 
052310 112737 002450 movb #0,cmdlen+2 ane oy type and credit 
052316 112737 002451 movb #dup.id,cmdlen+3 gearaehten 3 ID 
052324 005237 002452 ine cmdpak prone new 
052330 005037 002454 elr emdpak +2 
052334 005037 002456 clr emdpak +4 
052340 005037 2460 elr cmdpak +6 
52 012737 1 002462 mov #op .gds, cmdpak +10 sload up opcode 
052352 005037 002464 clr cmdpak +12 :no aadtt tare 
052356 012777 420 127742 mov #RFD2, vector New vector place 
052364 012737 002352 002526 mov érsppak ,rsprn sload response packet area into ring 
052372 012737 002452 002532 mov #cmdpak ,cmdrn sload command packet area into ring 
052400 012737 002530 mov #140000 , RSPRNG+2 :Port ownership bit. 
052406 012737 002534 mov  #bitt 15, CMORNG+2 
052414 004737 047376 jsr pc, POLLWT iGo to poll and wait routine. 
jRRRAERESRAEREERARREREARADARAAREASAAREAAEREAAREAAAARARAAEAEAAEEALEEEE 
052420 RFD2: ;Intr to here. 
052420 062706 00006 add #6,Sp Pix oy ¢ ia interrupt (4), pollwt 
rtn 
052424 012777 065 127674 mov #intsrv,dvector ; Change vector 
052432 004737 060352 jsr pc, RSPCHK ;Go to routine that will check on 
:the response recvd from the mut. 
sit will check the cmd ref 
snum, the endcode and status. 
2751 sthings off 
2752 052436 132737 000010 002371 * bitb Sit. rsppak +17 sis this server active already 
2753 052444 001467 beq sbranch to Execute Local Program 
2754 052446 ERRSOFT 3, SF TO ;Soft Error adeereety active will do 
2755 san ABORT ¢ . 
2756 052456 ABRT ;Doing an Apa do get into idle state 
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Global subroutines 


052456 032737 100000 002534 ABRT3: bit #bit15,cmdrng+2 eet SaereD of ring make sure we 
;Own | 
052 001374 bne ABRT3 if we don’t own it wait until we do 
052 012737 000016 002 mov #14. ,cmdlen ; load amy of Bs pene. to be sent 
052474 112737 002450 movb #0 ,cmdlen+2 ; load msg ty it 
052502 112737 002451 movb #dup. id,cmdlen+3 sload D scouetion f 
052510 005237 002452 ine cmdpak ;load new CRN 
052514 005037 002454 clr cemdpak +2 
52520 005037 002456 elr emdpak +4 
052524 5037 002 elr cmdpak +6 
052530 012737 002462 mov top. abrt ,cmdpak +10 ;load up opcode 
52536 5037 002464 car cmdpak +12 :no nod fiers - 
052542 012777 052604 127556 Mov #RFD3, @vector ;New vector place 
052550 012737 002352 2526 mov érsppak. reprng ; load response packet area into ring 
052556 012737 002452 002532 mov praca Gad nna ;load command packet area into ring 
52 012737 14 002530 mov #14 RSPRNG+2 :Port ownership bit. 
052572 012737 1 002534 mov  #bi t15, CMDRNG+2 
52 004737 047376 jsr pe ,POLLWT ;Go to poll and wait routine. 
jRRREEA TE RRRERRRERERREA EERE RRARRRRREERRERRRRERERRRRRRRRRARRRE RE ORE REA 
052604 RFD3: :Intr to here. 
052604 062706 000006 add #6,Sp _- gags fer interrupt (4), pollwt 
rtn 
052610 012777 065360 127510 mov #intsrv,@vector ;Change vector 
052616 004737 060352 jsr pc ,RSPCHK :Go to routine that will check on 
;the response recvd from the mut. 
sit will check the cmd ref 
;num, the endcode and status. 
2757 052622 000623 br GOSemd sbranch back to make sure not busy 
2758 052624 DNINT: 
$723 052624 000207 rts pe 
2761 ; Delay routine 
2762 
2763 052626 sleep:: 
2764 052626 010146 mov ri,-(sp) 
2765 052630 012737 052700 000100 mov #lks. server , d#LKSvct s;load the trap handler address 
2766 052636 012737 000340 000102 mov #prid7, en Svet+2 spriority 7 
2767 052 016601 mov 4(sp), rl 
2768 052650 070137 2604 mul herz,rl 
2769 0526 010137 002600 mov ri,timer 
2770 052660 012737 000001 002602 mov #1, timeout 
2771 052666 052737 000100 177546 bis #bit6, d#lks 
2772 052674 012601 mov (sp)+,r1 
4A 052676 00020 rts pc 
he ; Line time clock interrupt service routine 
2777 052700 lks.server:: 4 
2778 052700 005737 002600 tst timer 
2779 052704 340 ble 1$ 
2780 052706 005337 002600 dec timer 
2781 052712 05 br es 
2782 052714 005037 002602 1$: clr timeout 
2783 052720 042737 1 177546 bic #bit6, dtlks 
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re 
Global subroutines 


ores 052726 000002 2s: rti 

the ; RQDX interrupt server 
2788 052730 saint:: 

44 052730 000002 rti 





MAIN. MACRO WOS.02 


DUP fet Supplied Program Def in tons 


--——_— 


Thursday 15-Jan-87 14:33 


-sdttl DUPfmt Supplied Program Defini tons 


StG be 


; Addresses of version 2.9 of ROM based oy OE These are very specific 


; addresses which should not be touched. 


dospot 
findal 
getsec 
‘pl 
rp 
Refert 
Refcnt 
procba 
proare 
tblo 
feoare 


“ 
® 
> 
a 
Pg 
oun nnnnnnnnnnennnnnnnnnnnnnnnenneeneeaeeaeaeaeaee ae 


; /* Buffers areas offset from DATA 4#/ 


uiboff = 


105646 
100050 


0. 
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_ SEQ 0067 
DUPfmt Supplied Program Definitons 


2849 001004 uibsiz = <512.+4.> 
2850 001004 fiboff = <uiboff+uibsiz> 
2851 000005 sumsiz = : 
2852 000013 fibsiz = <6. +#<sumsiz>> 
2853 001032 datoff = <fiboff+<2.4«fibsiz>> 
2854 001000 datsiz = Si. 
2855 002032 trkoff = <datoff+datsiz> 
soo8 024260 Rtrksiz = 10416. 
ot34 ; /* Format Information Block #/ 
2860 000000 f .curcyl= 0 ; word curcyl; 
2861 000002 f .badsur= 2 ; word badsur; 
2862 000004 f .badblk= 4 ; word badb lk ; 
2863 000006 f.mode = 6 ; word mode ; 
2864 000010 f .contin= 10 ; word contin; 
seer 000012 f.man = 12 : word man_usd; 
2867 000000 no 7 0 
2868 000001 pee = 
2869 000002 ECONSTRUCT = 2 
2870 000370 hexF8 = 70 ; Hex F8 
2871 000376 hexFE = 376 ; Hex FE 
2872 000241 hexAl = 241 ; Hex Al 
2873 000100 op.srp = 100 
2874 000133 op.rt = 133 
2875 
2876 ; UIB.H Macrotized 
2877 
2878 000034 i.our * 34 ; 
2879 000036 i.cyl = 36 ; 
2880 000106 i.spots = 106 : 
2881 
2882 pswork = 6 
2883 2 t$ucb = 2 
8 000030 t$cylin = 30 
2885 000032 t$surfa = 32 
28 t$buffe = 44 
2887 000070 u$mode = 70 
2888 000072 usop.sd = 72 





—e 
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DUPfmt Supplied Program Definitons 


2901 052732 
2903 052732 
2904 oases 


2907 052742 104 125 
052745 106 115 


918 

2919 052760 106427 000340 
2920 052764 

2921 052770 
2922 052774 


2926 053012 
2927 053016 
2928 053022 
2929 053024 
2930 

2931 053030 
2932 053034 
2933 053036 


010701 


2945 053062 
2946 053066 





120 
124 


; The following is the dup supplied program that is used to format 


; drives when usi 
; because version 


version 2 of the microcode. 
uses the wrong step in and step out values 


It is nee 


; Goring the FCT seek. Touch this code at your own risk. 
; ....DW and NH 


.sbttl DUPfmt Supplied Program 
DUP fmt : 


.dsable AMA 

-word <DUPeno-DUPfmt> ;Byte count low TEST HEADER 

-word 0 sbyte count high 

-word 0 soverlay low 

.word 0 ;overlay high 

ascii /DUPFMT/ 76 character asciz name 

even 

_ ; 4; pinoy number 

2 $ 

‘byte 177 tinseut 

nop ;start down line loaded test 
DUPsta:: 

nop ;start down line loaded test 
; Relocate ourselves to upper memory 

ae #340 ; Disable interrupts 

elr 

mov #.pkt,-(sp) 

mov ts,-(sp) 

call oasena. nee 

cmp Sp/+,\ Sp/+ 

mov #.pkt+102, -(sp) 

mov ts, -(sp) 

call a#$eng.hea 

cmp (sp)+,(sp)+ : 

mtps #0 ; Enable interrupts 

mov #<DUPend-DUPrest>,r0 Number of bytes 

mov 


pe.? 
add #DUPrest-.,ri 
Mov #.pkt+204,r2 


MOV r2,r3 
1$: movb (rid+,(r2)+ 

sob r0,1$ 

jmp (r3) 
; Executable code starts here 
DUPrest: 


jsr r5,a#csv$ 
mov #tcbs, -(sp) 
call at$deq.hea 


Starting address (From) 

Top of memory (To 

Starting address 

Start copying to upper memory 
Done compy ing 


; Start running there 


SEQ 0068 


E6 
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DUPfmt Supplied Program 


2947 053072 


2965 053162 
2966 053164 
2967 053166 
2968 053172 
2969 053176 
2970 053202 
2971 053206 
2972 053210 


2979 053232 
2980 


005726 


011000 
110600 
074476 
110600 
111604 
177777 


071222 
000006 


177770 
177770 


064520 
000006 


177770 
177770 


000314 
000006 
177770 
064326 





2s: 


3$: 


#6, 
70. -10(r5) 
-10(r5) 


ee 
» “(Sp 
So ad 
r3,- 

aetmtunt 


%6, 

70. -10(r5) 
-10(r5) 

3 (sp) 
re. -tep) 
r3,-(sp) 

tman 
70. 10(r5) 


ae<Rformat+154> 


F6 
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DUP fmt Supplied Program 


2982 

2983 053236 
2984 053236 
2985 053242 
2986 053246 
2987 053250 
2988 053254 
2989 053260 
2990 053264 


2992 053270 


3014 053354 
3015 053362 
3016 053362 
3017 053366 
3018 

3019 053370 


3023 053372 
3024 
3025 053374 


3038 053426 





005065 


005037 
012737 


005737 
001775 


005302 
002366 
010314 
021403 
003416 
011402 
160302 
000410 
005037 
012737 
005737 
001775 


077456 
000006 
000012 
000010 
000004 
070566 
077456 
000004 
000006 
177777 


000010 
037506 


177770 


100234 
000005 140022 


100234 


100234 
000007 140022 
100234 


dofsek:: 


465: 


53$: 


62$: 


645: 


r5,a#csv$ 
6(r5),r4 


r4,-(sp) 
12tr5). -(sp) 
10(r5),-(sp) 


dofsek 
a#<Rdofcmd+26> 
r5, d%esv$ 
4(r5),r4 
6(r5),r3 
(r4),#177777 
44$ 

(r4) 
10(r5),-(sp) 
atrestore 
(sp)+ 
-10(r5) 
(r4),r3 

45$ 

(r4),r3 

47$ 

r3,r2 
(r4),r2 

52s 

aude. fl 

#5, OtwSc 
aude. flag 
55$ 


re 

53$ 
r3,(r4) 
(r4),r3 
56$ 
(r4),r2 
r3,r2 
61$ 


dtude. fla 
#7, Otwsc 


dude. fl 
64$ “= 





Tees 
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3039 053430 63$: 
3040 053430 605: 
3041 053430 61: 
2 05 005302 dec r2 
3043 Soeaee 002366 STs bge 62$ 
3045 053434 010314 mov r3,(r4) 
3046 053436 56$: 
3047 053436 66$: 
053436 012737 000111 140022 mov #111, d¢wscmd 
3 053444 033727 140010 000040 bit ar $dat, #40 
3050 053452 001001 bne 65$ 
0534 67$: 
3052 053454 000770 br 66$ 
3053 053456 65$: 
3054 0534 005703 tst r3 
3055 053460 342 ble 70$ 
3056 053462 012737 000111 140022 mov #111, O4wsemd 
3057 053470 033727 140010 000020 bit atr$dat, #20 
3058 053476 001413 beq 71$ 
3059 053500 005014 clr (r4) 
3060 053502 005265 177770 ine -10(r5) 
3061 053506 016500 177770 mov -10(r5),r0 
3062 053512 020027 000003 cmp r0,# 
3063 053516 3403 ble 72$ 
3064 053520 012700 076320 mov #Refsek ,r0 
3065 053524 02 br 43$ 
3066 053526 72$: 
3067 053526 71$: 
3068 053526 70$: 
3069 053526 000701 br 46$ 
3070 053530 45$: 
3071 053530 005000 elr rd 
3072 053532 43$; 
000137 077472 jmp atcret$ 


3073 053532 
3074 
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3076 

3077 

3078 

3079 053536 

3080 053536 004537 077456 

3081 053 112737 000001 

3082 053550 016502 

3083 053554 016503 000006 

3084 053560 016504 000010 
5 053564 005063 000012 

3086 053570 026327 000006 

3087 053576 00100 


073014 
000032 


112632 
000032 
102666 

052 
074370 


3098 053644 000001 
3099 053652 074026 
3100 053656 
3101 053660 
3102 053662 
3103 053666 
3104 053666 
3105 053672 
3106 053700 002743 
3107 053702 
aioe 053702 


10 
3110 


073016 


000032 
000032 


072752 


15-Jan-87 14:33 


102665 


000002 


000044 
102664 


000012 


000034 





getman: 


1$: 


getmlp: 


getmnx: 


getmck : 


Page 35 


GETMAN - Get Manuf Bad Block Info 


jsr 
movb 
mov 
mov 
mov 
clr 


ti oe one $work +1 
,0#.pcb+p$work+ 
4(r5),r2 

6(r5),r3 

10(r5),74 

f .man(r3) 

t emescmeaamnseaiiess 


#<Rgetman+176> 
t$surface(r2) 


#<data+rtrkoff>, t$buffer(r2) 
t$surface(r2),a%.pcb+p$work +0 
a+. pcb+p$work +2 

rdman 


tmck 
es, f.man(r3) 
rocba 

r0 


getanx 
<Rgetman+200> 


t$surface(r2) 
t$surface(r2),i.sur(r4) 
getmlp 


a#<Rgetman+134> 


ee er oe oe Se Be SF os oF Se Se SF SS SF Se Se SF SF Ss oF ae oe 


ee es ee oe os oe 


*& Entry Point is GETMAN #« 
Save some 

Set pass = 1 

tcb 


fib 


ui 
Assume FIB.man_usd = no 
FIB.mode = RECONSTRUCT? 


If so, just exit 

Lag hey ace = 0 

** Top of Loop #** 
TC8.buffer = data + trkoff 
Set up progress counter 


Read a Track and Check it 
Restore drive 
Failed? 
If so, forget this 
Else, FIB.man_usd = yes 
. process the bad ones 
. if something mucked up 


... then out we 

** Get the Next Track #*# 
Increment TCB.surface & loop 
... if TCB.surface < UIB.sur 
** Bottom of Loop *#* 

&& Final Check #* 


SEQ 0072 


16 
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DUPfmt Supplied Program 


3112 
3113 053706 


3130 053766 
3131 053770 
3132 053772 
3133 053774 
3134 054000 
3135 054002 
3136 054006 
3137 054012 


3142 054034 


3143 

3144 054036 010446 
3145 054040 
3146 054044 
3147 054050 
3148 054054 
3149 054056 
3150 054060 


3158 10 

3159 054114 

3160 054120 

3161 054122 122004 
62 24 


3167 
3168 054140 


177777 


000133 
177166 
000006 


000044 


000032 


000003 


140022 


rdman: : 


rdmtry: 


Findid: 


r4, -(sp) 

#4. . -(sp) 

Fm pectic 
(sp 

2( sp) 


rdmex 
t$ucb(r2),r4 
rn, -(sp) 

atselect 

(sp)-+ 

#<op.srp>, dws$cmd 
tsbuffer(r2), rd 


rOceiS” 


r0,(rl) 

(rl) 

(ri) 
t$surface(r2),(ri) 


4. Crd) 


abreg.7.(r1) (rt) 
usop.sd(r4), -(sp) 
eats ude 

é 4. ,(r3) 

r3,- (sp) 


r4, Pe 
0p. ae sp) 


— 

r0 

Sa | 
#t$buffer,r0 
r2,r0 


f .badsur(r3) 
f .badblk(r3) 
av aos 


find , 
5r0 2s .theurPenet re) 
! 


id 


#3,r0 


ae yrs Point is ROMAN #« 
Save VIB for now 

Retry Count 

sp = UIB.cyl - 1 


aa "Retry Loop #4 

decrement retry count 

if this is it, exit 
ueb = TCB.ucb 

select( uch ) 


a . 2 UDC registers 

A pointer (TCB. buffer) 
“y = pointer to wsdat 
regO = lowest byte of buffer 


regi = middle byte of bu*fer 


regs = desired sector number 
reg4 = TCB.surface 

regS = TCB.cylinder 

reg6 = sector count 

reg! = retry count 


pu _ude( UCB. op_sd) 
FIB. curcyl = -1 


erent op,ucb, 
Ecurcyl, TcB. painter ) 


(TCB. cylinder already on stack) 


Read a track 
pe 5 ae 


Pop ' 

Did that work ? 
If not, retr 
Check Id Field 


a# Find ID Field #« 
Init Bad ts per surface 
Init Bad b anes per surface 
Look for hex A 
If not found. retry 
mnt exre 
« cylinder(8: :11) xor FE ? 
If not, 
look f 
Next t byte = - "ree. oO inder[0: :7) ? 
If look for id my 
Next bite = TCB. surface? 
If not, look for id again 


Bump past sector and cres 
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SEQ 0074 
DUPfmt Supplied Program 


3169 054144 004737 074002 call af indal ; look for another Ai 

3170 054150 020027 000001 cmp r0,#1 SD ms 

3171 054154 001662 beq rdmtry ; If not found, retry 

3172 054156 122027 000370 empb (r0)+, #hexF8 ; Next byte = F8 ?_ ; 

3173 054162 001341 bne indid ; If not, look for id again 

3174 054164 rdnxt: ; ** Top of Spot Loop #4 

3175 054164 005746 tst 3H ; Reserved some room 

3176 054166 112016 movb (r0)+, (sp) ; Save Spot 

3177 054170 112066 000001 movb (r0)+,10sp) B ses 

3178 054174 011601 mov 69B) FS Daan 

3179 054176 112016 movb (r0)+, (sp) ; Save Position 

3180 054200 112066 000001 . movb (r0)+,10sp) “yom 

3181 054204 012604 mov (sp)+,r4 _ B ane 

3182 054206 020127 024260 cmp rl, @Rtrksiz ; Spot Out of Range? ; 

3183 054212 101325 bhi findid ; If so, skip to find next id 
3184 054214 01 tst ri ; Spot 0 and Position 0 both zero 
3185 054216 001002 bne rdspot Swan 

3186 054220 005704 tst r4 ah 

ted 054222 001440 beq rdmok ; If so, skip to exit with success 
3189 054224 rdspot: ; #* Process this spot ## 

3190 054224 010446 mov r4, -(sp) ; Check surface 

3191 054226 042716 177760 bic #177760, (sp) sas 

3192 054232 026226 000032 cmp t$surface(r2),(sp)+ ; If surface doesn't match 

ai; 054236 001313 bne findid ; ... Skip to find next id 

3195 054240 asr r4 ; Check cylinder 

3196 054242 006204 asr S see 

3197 054244 006204 asr r4 “> ; 

3198 054246 006204 asr r4 eine 

3199 054250 005704 tst rf ; If ( Ceylinder <= 0) 

3200 054252 003705 ble findid © aa. Or 

3201 054254 020416 cmp r4,(sp) 3... (Ceylinder > max cylinder) ) 
3508 54 003 bgt findid 3 . skip to find next ia 

3204 054260 010462 090030 Mov r4,t$cylinder(r2) ; Otherwise, set temp TCB.cylinder 
3205 054264 016604 ». Mov 4(sp),r4 ‘ ; Reset VIB 

3206 054270 026364 000002 000106 cmp f .badsur(r3),i.spots(r4) ; Alre reached Limit? 

iad 054276 002211 bge rdmtry ; If so, this is no good (r0 > 0) 
3209 054300 010046 mov r0,-(sp) ; Save buffer pointer 

3210 054302 004737 073450 call a*dospot ; Save block(s) for this spot 
3211 054306 012600 mov (sp)+,r0 ; Restore buffer pointer 

3212 054310 005263 000002 ine f .badsur(r3) ; Increment Bad Spot Counter 

3213 054314 026327 000002 000100 cmp f .badsur(r3), #64. we 

3214 054322 002720 blt rdnxt een 

3215 054324 005000 rdmok: clr rd ; ** Show success #* 

3216 054326 rdmex : ; #* Exit #« 

3217 054326 022626 cmp (sp)+,.(sp)+ ; Pop two 

3218 054330 012604 mov (sp)+,r4 ; Restore UIB 


3219 054332 000207 return 
3220 





Ko 
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3222 

3223 


| 3224 .enable AMA 
3225 054334 DUPend: : 
3226 


SEQ 0075 


L6 
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DUPfmt Supplied Program 


3529 
30 


RR 
SANG 


40 
3241 


3242 


es 


“4334 
054334 
054334 


054576 
054576 


05+604 


032737 
001374 


FARRER AAAAEAEEREEASRAEAEEEEEAREREEREAASERAAASAAAAASAAASARE EASELS 


Thi 


the p 


This routine runs the Execute S 
am is downline loaded into 
which drive is out in the controller. First you must tell which drive 
want to format. After listing the drive number the 
he ape and figure which DEC drive it is and which 
the disk controller fo rthe format program. 


iS Pp 


AUTOsizer 
lied program called AUTOSZ 
controller to determine 


rogram will load 
TT °to load into 


pRRRREEEAARARAEEAEASARAEARERAEERERAEREREEERERARERARESAA EERE EASES 


AUTOSizer: 
excSUPprg #Autosz,#<Autoend-Autosz>;downline load the program autosz 
002534 bit #bit15,cmdrng+2 :test poaree of ring make sure we 
sown it 
bne ESP4 :if we don't own it wait until we do 
002446 mov #50,cmdlen sload length of packet to be sent 
002450 movb #0,cmdlen+2 ; load type and credit value 
002451 movb #dup. id, cmdlen+3 ;load DUP connection ID 
ine cmdpak 
elr CMDpak +2 
elr CMDpak +4 
elr CMDpak +6 
002462 mov #top.esp, ak +10 ;load up opcode 
002464 mov #0, CMDpak + ;no otend alone modifier 
002466 _ e<hutoond- -Autosz>, cmdpak +14 s;load length of prg into buffer 
elr c 
002472 — <2 eer et” ata ;starting address of downline load prg 
clr CMDp: 
clr CMDpak +24 
elr CMOpak + 
clr CMDpak +30 
clr CMDpak +32 
elr CMDpak + soverlay buffer descriptor 
clr CMDpak +36 
clr CMDpak +40 
clr CMDpak +42 
elr CMDpak + 
elr A gh 
25602 mov #RF D4, Avector New vector place 
002526 mov ¢rsppak ,rsprng ;load response packet area into ring 
002532 mov ak ,cmd ng ;load command packet area into ring 
002530 mov #140000 , RSPRNG+2 :Port ownership bit. 
002534 mov #bitis, +2 
jsr pc ,POLLWT ;Go to poll and wait routine. 
jeessscabasasessnsnsncsasscasasncsasasasnnsesncesssesencsesacasseenss 
whee he Tr okeat ten tad (4), poll 
sp ix stack for interrupt pollwt 
> ssubrtn (2) 
125534 mov #intsrv, vector Change vector 
jsr pc ,RSPCHK to routine that will check on 
+a response recvd from the mut. 
Recvdata Soop, Seoelen results of auto size 
002534 RCDS: bit #bit15,cmdrng+2 est pores of ring make sure we 
sown it 
bne RCDS ;if we don't own it wait until we do 





SEQ 0076 


M6 
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DUPfmt Supplied Program 


3243 055006 


012737 


062706 


012777 
004737 


000207 


000034 
000000 


065360 
060352 
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002446 mov #34,cmdlen 
002450 movb #0,cmdlen+2 
002451 movb #dup.id,cmdlen+3 
ine cmdpak 
elr emdpak +2 
elr cmdpak +4 
elr cmdpak +6 
002462 Mov #op.rec,cmdpak +10 
elr cmdpak +12 
002466 mov #msglen, cmdpak +14 
elr cmdpak +16 
002472 mov #msg,c 
clr cmdpak 


sload length of ket to be sent 
; load oon 300 wd credit 

sload DUP connection ID 

sload new CRN 


; load ode 
no aoditlare 


;New vector place : , 
;load response packet area into ring 
;load command packet area into ring 
Port ownership bit. 


:Go to poll and wait routine. 


¢ RARAAAAREAKEAARERAEEAERREREEEAAAREREERAEREREAREAEREREAAEREREARAREAREES 


elr cmdpak +26 

clr cmdpak +30 

elr emdpak +32 
eee mov nent gyno 

mov sppak ,rspr 
002532 Mov gcndpak .cndrng 

2530 Mov #14 RSPRNG+2 

002524 mov #bit15,C +2 

jsr pc ,POLLWT 

" RFDS: 

add #6, Sp 
125324 mov #intsrv,@vector 

jsr pc ,RSPCHK 


rts pc 


;Intr to here. 

:fix stack for interrupt (4), pollwt 
;subrtn (2) 

;Change vector _ 

;Go to routine that will check on 
;the response recvd from the mut. 
;it will check the cmd ref 

:num, the endcode and status. 
;return 
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DUP fmt Supplied Program 


esoz 055010 
3297 055010 
3298 055012 
3299 055014 
3300 055016 

3301 055020 


125 


124 


.sbttl AUTOSZ 


jRRRAEREAEARAAARERARRERRARRRERAREEREEREEEREREREEEREREEERERERERREEE 


; UTOsz 

; This is the actual Gum line loaded code which is placed in 

; the RAM inside the RQOX3 controller. This code firgures out the 

; cylinder size of the drive. From the cylinder size we can determine 

; which drive it is. If the drive is a winchester we will step the drive 
; into the inner most cylinder. The inner most cylinder for most drives 
; is the parking cylinder. 


3+ 
; AUTOsz - Determine Drive Type and Size 
; Input: None. 


; Output: , 
; A Special Type Message: 


) Special Msg #10, (decimal) } +00 
) Status ) +02 


+ 
) Innermost Cylinder for Unit 0 +04 


; } Innermost Cylinder for Unit 1 +06 
; $n wn nn en en ne ee eee en neee- 
: } Innermost ey for Unit 2 +10 


where, status = Q for success, 
1 for UDC never went done, 
¢ for UDC never interrupted, 


for Seek Failed 


cylinder = 3 for RX33 Fl 
. : for RX50 Floppy 
Ay 2048 for Winnie, 
-1 for Non-existent unit 


; Note: The Unit Numbers will correspond to the numbers that the Host 
; would use (i.e., not necessarily the DRVSEL numbers). Thus, 
Winnies will always precede Floppies and “null devices”. 


pRRRERERAREREEAEREERERERESEAAARERERREREAREREREEREEEAREAAEAEEEAA‘ES 


AUTOsz: 
.dsable AMA 
.word <AUTOend-AUTOsz> ;Byte count low TEST HEADER 
.word 0 ibyte count high 
-.word 0 soverlay low 
-word ;overlay high 
.ascii /AUTOSZ/ 36 character asciz name 





SEQ 0078 


| 


JAIN. CRO VOS.05 


AJTOSZ 


3333 Sretss 
3334 055144 
3335 055146 
3336 

3337 055152 
3338 055152 


3343 055172 
3344 055176 
3345 055202 


3357 055230 





013746 


112737 


010246 
010346 


012703 
012720 


" ur SSay 


123 


000744 
000004 
177777 
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132 


140022 
140022 
140020 
140006 


140022 


140006 


14:33 


Leven 
.word 1 
.byte 0 
.byte 177 
nop 
AUTO:: 
nop 
; Executable Code Starts Here 
mtps tps7 
clr dew Fpl 
mov di $ude, -(sp) 
mov ai $clk,-(sp) 
mov ati $sec, -(sp) 
; Taken from RQDX3.MAC m$init code: 
movb #u.res, dtws$cmd 
movb tu. srp+1i, atw$cmd 
movb #40 , OtwSdat 
elr s$$ 
bit #20000 , d#r$fps 
beq sizset 
movb tu.dd, dtws$cmd 
mov #1000. r0 
sizwt: 
dec rd 
bne sizwt 
bit pee dtr$fps 
bne sizset 
inc s$$bug 
sizset: 
* mov pe, r0 
add #<s$$ude-.>,r0 
mov r0,d#i $ude 
MOV pe,r0 
add #<s$$rti-.>,r0 
Mov r0, a#i $clk 
mov r0,d%#i $sec 
mtps #ps0 
; Go Size the Drives 
mov r1,-(sp) 
mov r2,-(sp) 
mov r3,-(sp) 
mov pe,r 
add #<ms at+2>-.,r 
mov re.r 
; Mov walt 
siznon: 
Mov #-1. (r0)+ 


Page 59-1 


start down line loaded test 


;start down line loaded test 


Set up our  « interrupts handlers 
clear the le 
nes Chosk MSCP "handlers - UdC 


. Sector 


reset the smc9224 chip 
enable interrupts 


assume the bug is not ,present 
is the ECO wire there? 
definitely not 


deselect all drives 
wait for a bit 


is the ECO wire there? 
nope 

say it is 

Set up handlers 


Use our own ude handler 


Make clock interrupt rti 
Make sector interrupt rti 
Make it 


Save Registers 
Save Registers 


Point to Unit Descriptor Table 


Initialize all Unit Descriptors 
1. to “Non-Existant Unit” 





AUTOSZ 
3358 055234 
3359 
3360 055236 
tae8 055242 


336 
3364 055242 
3365 055250 


055332 
055334 


055374 
055376 








077303 
012703 


012737 


12737 
005037 


032737 
001121 


012737 


.MAIN. MACRO VOS.03 Thursday 


000007 
000400 
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140002 
140022 


140022 
140020 


140022 
140010 


:33 Page 39-2 
sob r3,siznon 
Mov #2.,7r3 
sizlop:: 
Mov #bit3, rwspll 
mov fu. srp+4, dtwScmd 
clr OtwSdat 
clr atw$dat 
mov #u.srp+8. ,dtws$cmd 
mov #rd.mode, atwsdat 
mov r3,r0 
add #u.srd,r0 
jsr pe, 
st r0 
beq sizfps 
jmp sizend 
sizfps: 
bit #bit14+bit15, d#rsfps 
bne sizwin 
sizflp: 
mov #bitO+bit3, d#rwspll 
movb #tu.srp+7, atwsomd 
movb retry, atw$dat 
Mov r3,70 
add #u.srx, rd 
jsr pc ,doude 
st rd 
bne sizend 
elr r4 
steprx: 
cmp r4,#160. 
bge $sizrx 
movb #u.srp+9. , dwscmd 
bitb #oit4, dtr $dat 
bne sizrx 
cmp r4,#80 
blt tepout 
cmp r4,#130. 
bgt stepout 
Mov #u.sil,rd0 
jsr pc, 
st rd 
bne sizend 
br stepmore 
stepout: 
mov #u.sol, rd 
sr pe, 
st rd 
. sizend 
stepmore: 
ine r4 
br steprx 





Set Drive Count to logical unit 0 


ea L Until We Get All of Them #« 
aaCheck if it is a Winniess 

Set up Plictl Csr 

= up re registers 


. Head 
. Cylinder 0 


’ Set mode for winnie 
Select the Drive 
u.sd.rd=44 
Do ude command 
Okay? 
Nope, something is screwed up 


Winnie? 
Yes, go set cylinder count 


xs Check if it is a Floppy ## 

Set Plictl CSR 

Set up UDC fagiowwre 

oo. Petr 

Select t 
u.sd.rx= 

Do uo command 

Oka 
~~ something is screwed up 
Step counter 


Drive 


*& Step In & Out Until Track 0 Found #4 


How many times have we step? 
Set up “UDC registers 

At track 0? . 

Yes, then go check ad type 
Is step counter >= 

Is step counter <= 130 ? 


St in one track 
Do UDC command 
Okay? 


y? 
Nope, something is screwed up 


Step out one track 
Do DC command 
Okay? 


flepe. something is screwed up 


. Increment step counter 


#% Bottom of find track 0 loop #4 


SEQ 0080 
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AUTOSZ 
3415 055474 


34 
3435 055576 
36 


3437 055600 
3438 055604 
3439 055610 
3440 055612 
3441 

3442 055614 


3463 055700 
3464 


3465 055704 
3466 055704 


3467 055706 
3468 055712 
3469 055714 
3470 

3471 055720 


~ 


112737 


000441 


112737 
132737 
001003 


021227 
002757 


062702 


005203 
020327 
003002 
000167 


000111 
000020 


000104 
000001 
000054 
000324 
000111 
000020 
000002 


000003 


000007 
000254 


000003 
000111 
000020 


000005 
000214 


000111 
000020 
004000 


000002 


000005 
177322 
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140022 
140010 


140022 
140010 


sizrx: 


sizrx3: 


Sizwin: 


sizin: 


sizrd: 


sizdrv: 


sizend: 


tu.srp+9. , dtwScmd 
#bit4, dr $dat 
sizdrv 

#tu.srp+4, dtwscmd 
$1, a¢wSdat 


sizend 

#u.srp+9. , dtwscmd 
#bit4, atr$dat 
sizrx3 

#2,(r2) 

sizrd 


#3,(r2) 
sizrd 


(r2) 


#u.s 
aiid ar $dat 
sizend 


(r2) 

#u.sil,rd 

pc , doude 

rd 

sizend 

#u.srp+9. , dtwSemd 


#bit4, atr$dat 
sizrd 


(r2), #2048. 
sizin 


#untdsz,r2 


r3 

r3,#5. 
sizend 
sizlop 


ee @e ee oe ee Ge Ge Se oe Ge Se SH oF Ge ae oe 


; Yes, mark 


ae a Floppy type RXSO/RX33 « 
up UDC registers 
at eresh 0? 


Set up c registers 
Head = 
Select the - * 


Ok ay? 

Nope, something is screwed up 
Set up UDC registers 

At track 0? 

No, it's an RX50 

Mark it as an RX50 


it as an RX33 

Go do next drive 

It's a Winnie - Set Count to 0 
bo tne one track 


Nope, something is screwed up 


Assume that seek to 0 failed 
At Cylinder 0? 


Nope, something's wrong 
a* Step In Until Track 0 Found #« 
up Cylinder Count 


In One Cylinder 
Be —_ Command 
fepe. something is screwed up 
At Cylinder 0? 
al so, skip to bump up 
. descriptors 


SMC Set indies Limit Reached? 
*& Bottom of Step In Loop #« 


a This was a Winnie #4 
Bump Pointer to Next Unit Descriptor 
#* Check Next Drive ## 
Drive Count 
All 4 Drives Checked? 
&& Bottom of Loop #« 


a4 Send Status and Table «+ 


‘oe ee 
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SEQ 0082 

AUTOSZ 

3472 055720 010067 000234 mov r0,msgdat ; Save status. 

3473 055724 012700 000001 mov #u.dd,r0 : lect Drive 

3474 055730 004767 000130 jsr Pc. gouds 5 nes 

3475 055734 012603 Mov sp)+,r3 ; Pop 

3476 055736 0 2 mov (sp)+,r2 Some 

3477 055740 012601 mov (sp)+,rl os 

3478 055742 106427 000340 mtps #ps7 ; Put the MSCP Handlers Back 

3479 055746 012637 100016 mov (sp)+,@#i $sec Sone 

3480 055752 012637 100006 mov (sp)+, @#i $clk ; 

3481 055756 012637 100002 mov (sp)+, @#i $ude ; 

3482 055762 106427 000000 mtps #ps0 ; 

3484 055766 sizexi:: ; ** Okay, talk to the Host *# 

3487 ;PutData,msg,msglen - Send Response to Host 

3488 055766 010700 mov pe, r0 :figure the relative address 

3489 055770 062700 000166 add #msg-. ,r0 3... of the buffer 

3490 055774 012746 000014 Mov #msglen, -(sp) s:load length in bytes of the buffer 

3491 056000. 010046 mov _—r0, -( sp) ;load relative address of the buffer 

3492 056002 013746 000146 mov a#146, -(sp) ;load location of routine in microcode 

3493 056006 004736 jsr pc, a(sp)+ ;call Put Data routine in Ucode 

ote! 056010 022626 cmp (sp)+,(sp)+ ifix stack 

saat ; Terminate Supplied Program 

3498 056012 013700 000142 mov a#142,r0 sload location of routine in microcode 

3499 056016 004710 se pe, (r0) ;call Terminate routine in Ucode 

3500 056020 000207 rts pe © ats 


F7 
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AUTOSZ 


50 
3508 056022 
22 


3546 

3547 056102 
3548 056102 
3549 056106 
3550 056106 
3551 056112 
3552 056114 
3553 

3554 056116 
3555 056120 
3556 056124 
3557 

3558 056126 


000002 


000124 
020000 


140012 
000035 
000240 
000072 


000062 
140022 
004000 


007570 
000042 


000002 


140006 


; UDC Interrupt Handler 


; Taken from RQNDX3.MAC mSude code: 


oe, . - 3 
s 8 : 
beq oetaat ; 
bit #20000 , d#r$ fos 3 
bne s$$rti 3 
s$$udi: r 
movd @#r$cmd, -(sp) ; 
bicb . (sp) + 
cmpb $240, (sp)+ : 
bne s$$rti ; 
ine s$$flag : 


;* 
; Return from Interrupt 


s$$rti:: 3 
rti ; 
s+ 


; DOUDC - Do a UDC Command 


: This routine sends a commands and waits 
3 : until timer expires. 


r0 
r0 


= command 


mseca = 30.4132. ; 


doudce: : 1 -(ep) ; 
MOV r sp : 
elr s$$fl 3 
Mov r0 , d#w$cmd ; 
Mov #2048. ,r0 3 
mswait 3 
mov #mseca,ri F 
msin ; 
tst s$$flag ; 
bne msend ; 
sob ri,msin : 
sob r0,mswait ; 
mov #eruint, rd ; 
br douret ; 
msend: : ; 





3 get interrupt status 

; clear bits of no interest 
; valid status? 

; no, it's a bogus interrupt 
; set the flag 


= 0 for success, non-zero for failure 


UDC Handler 
is the ECO wire there? 


nope 
is the 9224 yapty line set? 
if not, must be a bogus interrupt 


- just quit 


an interrupt or 


Max Step Rate + some 
loop for 7.5 MHz Til “slau 


** Do a UDC command +#+ 

save ri 

Clear ude flag + sasha pending) 
Send the command 

Set the rom timer (max cylinders) 


ae Wait *&% 

set one millisecond counter 

*& Top of Inner Loop #« 

3.60 ude interrupted 

1.60 out if — ner ore 

2.40 Total: 0 a7 z>> 
5: So59 6 .67MHz 

as Bottom of Outer Loop #4 

muvee Interrupted 


a4 Interrupt Happened #+ 


G7 
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AUTOSZ 


3559 056126 
3560 056132 
3561 056136 
3562 056142 
3563 

3564 056144 
3565 


3566 056146 
3567 056146 
3568 056150 


012601 
000207 


000001 
140012 
000040 


douret: 


#erudon , r0 
atrscemd,rl 
#bit5S ri 
douret 


ro 


(sp)+,rl 
pc 


Assume Never Done 

Get the return status 
All done yet? 

If so, pop out of this 
Assume everything's ok 
&& Return ** 


Back to caller 


HT 
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| SEQ 0085 
| SIZER Supplied Program Data 

tere .sbttl SIZER Supplied Program Data 

3572 ; .psect cS$data 

3573 

tee ; Special Stuff 

3576 056152 s$$bug: .blkw 1 ; ECO Wire 

sere 056154 s$$flag:.blkw 1 ; UDC flag 

sen5 ; Packet Area 

3581 056156 012 140 msg:: .byte 10.,.b.spl ; Final —- . 

3582 056160 msgdat: .blkw 5. ; Status and Unit Descriptor Table 

3583 000014 msglen = .-msg ; Message Length (Byte Count) 

sees 000002 untdsz = 2. ; Unit Descriptor Length 


3586 enable AMA 
3587 056172 AUTOend: 


a 
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SEQ 0086 
SIZER Supplied Program Data 


3589 
3590 fRRRRREREEEERERERAEAAEAEARAAEAAEEAEAAAAEEAAEAALASALAREARARALALL AEA 
3591 : tm play 
3592 ; This routine will di he results of the autosizers 
3593 ; findings. It will say weat = ‘the autosizer errored or not and 
hed ; what drives it f 2 
t208 5 RRRRRREEAREAEREREEREEAEERERERER EEE EEREREERABARARARERAEEEEE AREER EERE 
9 
3598 056178 153727 056157 000180‘ empb 1... spl heci if Special Mes 
¢c msg+1,#.b.sp ie if Specia s 
3600 056200 001401 1$ if not then no info te print 
000207 rts pc :S0 just return 
3 123727 056156 000012 1%: cmpo msg, #10. 
3604 056212 001401 beq 2s scheck me sage number 
3605 056214 20 rts pc sreturn if msg number doesn't match 
3606 056216 2s: 
3607 056216 005737 056160 tst >) fe s;test completion status of Autosizer 
3608 056222 001457 beq 24 :if zero no error report the findings 
cs if not zero then there is an error 
3611 ; Autosizer Failure Code 
3612 056224 print NSS ates : ge Autosizer Failure Code 
3613 056250 023727 056160 000001 cmp + ; Is it a UDC never done er-or ? 
3614 056256 001010 _ bne 11 ; No, check for next code 
15 056 printb #ASMSG4 ; Yes, Tell error type 
3616 056300 023727 056160 000002 i11% cmp msg’ ° ; Is it a UDC never interrupted error ? 
056 001010 ‘ le ; No, check for next code 
3618 056310 printb #ASMSGS ; Yes, Teli error type 
3619 056330 023727 056160 000003 12% cmp Ti dae ; Is it a seek error ? 
0563 001010 : 13 ; No, go reinitialize ctrl 
3621 056340 printb #ASMSG6 ; Yes, Tell error type 
3622 056360 
3623 056360 000207 rts pe ;return 
Autosizer Findings 
3626 056362 : 
3627 056362 printb #ASMSG1 ; print Autosizer findings 
3628 056402 012701 056162 mov *4,r1 ; first cylinder entr 
3629 056406 005002 clr r2 ; Start with unit n r zero 
630 056410 022711 177777 26$: cmp #-1.,(r1) ; Is unit Non-existant ? 
3531 056414 001013 : $ ; No, check for RX50 
3632 056416 printb #ASMSG7,R2 ; Yes, tell it is non-existant 
3633 0 000137 057220 jmp $ rer 
3634 056444 022711 000002 61$ cmp #2.,(r1) ; Is unit an RX50 ? 
3635 056450 001013 _ bne $ ; No, check for RX33 
3636 056452 printb #ASMSG8,R2 ; Yes, tell it is an RX50 
3637 056474 000137 057220 jmp 20$ S nen 
3638 056 022711 000003 62$: cmp #3.,(r1) ; Is unit an RX33 ? 
3639 056504 001013 _ bne ; No, then it ‘s a Winchester 
3640 056506 printb #ASMSG9,R2 ; Yes, tell it is RX33 
3641 056530 000137 057220 jmp 20$ . en 
3642 056534 63s: | ; It is a WINCHESTER 
3643 056534 printb #ASMSG2,r2,(r1) ; Tell it is a Winchester with so many 


cylinders 
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SIZER Supplied Program Date 


3651 
3652 056572 
3654 056614 
3655 


3691 
3692 057010 
3693 
3694 057014 
3695 057016 
3696 
3697 057022 
3698 057024 
3699 057044 
3700 
3701 057046 
3702 


Rist 


023711 
o28711 
001012 
000137 


023711 


001403 
023711 


001011 
000561 
023711 


001403 
023711 


001011 
000542 
23711 


001403 
023711 


001011 
00052 

023711 
001403 
023711 
001011 
000504 
023711 


001403 
023711 


001011 
000465 
023711 


003102 


003100 


057220 
003206 


003204 


003212 


003310 


003416 


003414 


003522 


003520 


003626 


003624 


003732 


718: 


7108: 


72$: 


720$: 


73$: 


730$: 


74$: 


740$: 


750$: 


76$: 


760$: 


778: 


cmp 
beq 
cmp 


bne 
printb 


UITO+UITsiz-2,(r1) 
710$ 
UITO+UITsiz-4,(r1) 
72$ 

#0rvTx0 

20$ 
UITI+UITsiz-2,(r1) 
720$ 
UIT1+UITsiz-4,(r1) 
73$ 

#0rviIxl 

20$ 
UIT2+UITsiz-2,(r1) 
730$ 
UIT2+UITsiz-4,(r1) 
74$ 

#0rvTx2 

20$ 
UIT3+U"Tsiz-2,(r1) 
740$ 

UIT3+UITs <-4,(r1) 
75$ 

#0rvTx3 

20$ 
UIT4+UITsiz-2,(r1) 
750$ 
UIT4+UITsiz-4,(r1) 
76$ 

#0rvTx4 

20$ 
UITS+UITsiz-2,(r1) 
760$ 
UITS+UITsiz-4,(r1) 
77$ 

#0rvTx5 

20$ 


UIT6+UITsiz-2,(r1) 


cylinder # ls UIT 
correct UIT table 
cylinder ¢# ls UIT 
the correct UIT table 
rd51 
cylinder # ls UIT 
t correct UIT table 
cylinder # ls UIT 
the correct UIT table 
rd52 
cylinder # ls UIT 
the correct UIT table 
cylinder ¢# ls UIT 
the correct UIT table 
rd52 
cylinder # ls UIT 
the correct UIT table 
cylinder # als UIT 
the correct UIT table 
rd53 
cylinder # als UIT 
¢ correct UIT table 
cylinder # als VIT 
t e correct UIT table 
rd54 
cylinder # ls UIT 
t correct UIT table 
cylinder # ls UIT 
the correct UIT table 
rd3l 
cylinder # als UIT 
t correct UIT table 


table # this 


table # this 


table # this 


table # this 


table # this 


table # this 


table # this 


table # this 


table # this 


table # this 


table # this 


table # this 


table # this 
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SIZER Supplied Program 

Has Seat 
001011 
000446 
023711 


001403 
023711 


001011 
000427 
023711 


001403 
023711 


001011 
000410 


| —-$705 
3706 057060 
_--3767 057062 
3708 057102 
| 3709 
3710 057104 
3711 
3712 057110 
3713 057112 
3714 
3715 057116 
3716 057120 
3717 057140 
3718 
3719 057142 
37 


20 
3721 057146 
= 16 057150 


3723 

3724 057154 
3725 057156 
3726 057176 
3727 

3728 057200 
3729 

3730 057220 005721 
3733 05723 


3734 057232 
ve 057236 


3746 057240 
3747 057240 
3748 057246 
3749 057250 


032737 


3750 

stot 057254 
3753 057274 
3754 057314 
3757 057374 
3758 057414 
3759 057434 


loschiei 


Data 


003730 


004036 


004034 


004142 


056410 


100000 
057556 


002336 


beq 
cmp 
bone 
7708; rinto 
r 
78$: cmp 
beq 
cmp 
bne 
7808: ‘e 
r 
79$: cmp 
beq 
cmp 
bne 
7908: — 
r 
80$: printb 
208: tst 
ine 
cmp 
beq 
27: eo 


770$ 
UIT6+UITsiz-4,(r1) 
78$ 

#0rvTx6 

20$ 
UIT7+UITsiz-2,(r1) 


780$ 
UIT7+UITsiz-4,(r1) 
79$ 

#O0rvTx7 

20$ 
UITdf+UITsiz-2,(r1) 


790$ 
UITdf+UITsiz-4,(r1) 
80$ 

#0rviIxe 

20$ 

#ASMSGr 

(rl)-+ 

re 

r2, @MaxDrv 

27s 


26$ 
pe 


if cylinder # equals UIT table # this 
sis the correct UIT table 


31 rd32 
ls UIT table # this 
IT table 


ls UIT table # this 
IT table 


sif cylinder # 
sis the correct 


if cylinder + 
;is the correct 


31 rd 


if cylinder + ls UIT table # this 


;is the correct UIT table 

if cylinder ¢# als UIT table # this 
;is the correct UIT table 

31 custom rd 


; “Unrecognized Drive” 


Point to next unit descriptor 
Set for next unit 

Last unit? 

Yes, exit routine 

No, do next unit 


pRRREREEEREEEAEEEEAAABAREREAAEAREARAAEAAAEAAAAEEAREAERE RARER EEEE 


This routine builds the UIT table or get the UIT table 


depending who the questions are answered 


to the manual questions. 


; UIT table. If not we will have to ask all the questions to build 


; If the unit is a listed or regconizable drive we will use a prebuilt 


; a table. 


; 
sRebbdehbdehhd ebb ehbbhGhPhbddhhdReeeReeeReREAAASAAERAAREADEEADEELE 
LDUIT: 


bit 

beq 

Jp 
manbld: printf 
printf 
printf 
printf 
printf 
printf 
printf 
printf 


#biti5,untflgs 
manbld 

autobld 
#0rvixa 


#0rvTxb 
#0rvTx0 
#O0rvTxl 
#0rvTx2 
#0rvTx3 
#0rvTx4 
#0rvTx5 


sprint out UIT tables and their 


:related drives 
;UIN Drive 
30 rd51 

31 rd52 

i2 etc 

33 etc 

34 
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SIZER Supplied Program Data 


3760 057454 
3761 057474 
3762 057514 
3763 
3764 057534 
3765 
3766 
3767 
3768 057554 


3774 057572 


3775 

3776 057600 
3777 057602 
3778 057610 


3779 

3780 057616 
3781 057620 
3782 057626 


3784 057634 
3785 057636 
3786 057644 


3787 

3788 057652 
3789 057654 
3790 057662 


3791 
3792 057670 
3793 057672 
3794 
3795 057700 


3796 057702 
3797 057710 
3798 
3799 057716 
3800 057720 
3801 


3802 057726 
3803 057730 


3808 057754 
3809 

3810 057762 
3811 057764 
3812 060004 
3813 060010 
3814 060010 


3815 060010 
3816 060014 





023760 
001412 
000137 


012703 
013702 


002330 


000000 
003102 
000001 
003206 
000002 
003312 


000003 
003416 


000004 
003522 
003520 


000005 
003626 


003624 


000006 
003732 


000007 
004036 


074424 


003000 
002344 


002344 
056162 
002344 
056162 


002344 
056162 


002344 
056162 


002344 
056162 
056162 


002344 
056162 
056162 


002344 
056162 


002344 
056162 


printf @0rvTxé 
printf @rvIx7 
printf @DrvTxc 


GMANID unt.nbr,UIN,0,17,0,10,n0 


br uitloc 
autobld: 

mov unit,rd 

asl r0 
1$: Mov 

beq 2s 

Mov 

beq 2s 

Mov 

beq 2s 

Mov 


beq 23 


beq 23 


beq 
beq 2s 
Mov 
beq es 
Mov 


beq 2s 
printb #efunr 
Jmp dropun 
23: 
uitloc: 
Mov #UITO,r3 
Mov UIN,r 


#0,uin 

cmp UITO+UITsiz-2,msg+4(r0) ; 
#1,uin 

cmp UIT1+UITsiz-2,msg+4(r0) ; 
#2,uin 

cmp UIT2+UITsiz-2,msg+4(r0) 
#3,uin 

cmp UIT3+UITsiz-2,msg+4(r0) ; 


#4,uin 
cmp UIT4+UITsiz-2,msg+4(r0) 


2$ 
cmp UIT4+UITsiz-4,msg+4(r0) 


#5,uin 
cmp UITS«UITsiz-2,msg+4(r0) 


2s 

cmp UITS+UITsiz-4,msg+4(r0) 
#6,uiNn 

cmp UIT6+UITsiz-2,msg+4(r0) 


#7,uin 
cmp UIT7+UITsiz-2,msg+4(r0) 


sGET Unit identifier number (0-7) 
PLACE IN bits 0-3. 

7no defaults, person must know what 
;Unit Identification number. 

;get correct table address into UITadrs 


get unit number 

;get the g ok. offset of tbl 

sick UIT number 0 . 
linder ¢# canie UIT table # this 

te 5 the correct UIT table 


oe UIT number 1 


cylinder # ls UIT table # this 
Aid t correct UIT table 
spick UIT maior 2 ; 
sif cylinder # als UIT table # this 
;is the correct UIT table 
ic UIT number 3 

cylinder + als UIT table # this 
qi t correct UIT table 


spick UIT number 4 
:if cylinder ¢# als UIT table # this 
;is the correct UIT table 


;if cylinder # equals UIT table # this 
;is the correct UIT table 
;automatic a feature of this drive 


spick UIT number 5 
sif cylinder # yole UIT table # this 
T table 


;is the correct 

sif cylinder # als UIT table # this 
;is the correct UIT table 

sautomatic recal feature of this drive 
spick UIT number 6 ; 
sif cylinder # ls UIT table # this 
;is the correct UIT table 


spick UIT —y y* 
:if cylinder # als UIT table # this 
;is the correct UIT table 


;"No UIT table suitable for this drive” 
;drop unit and end pass 


;r3 contains base address of UIT tables 
;get the correct UIT table addess 


SEQ 0089 


| 
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SIZER Supplied Program Data 0090 

3817 sate UITadr register 

3818 060020 001403 beq 11$ f UIN=0 then set table to VITO. 
3819 060022 062703 000104 10$: add #UITsiz,r3 jelee multiply ~ size by — ares 
3820 snumber and add to base 

3821 060026 077203 sob r2,10$ 
3822 060030 010337 002320 11$: mov r3,UITadr ;store the proper address of the UIT table 
3823 060034 000137 060042 jmp cont ;all done 
3825 060040 tblbld: ;We must build a UNIT INFORMATION TABLE 

000240 nop itry IRQCBIL for custom built tables 

3827 savailable thru SOC. 

3828 060042 000207 cont: rts pe bac 

3829 RAREARARAAAARARRAEAREARARRRERERARRRERERERRERERRERERERREREREEEEA 

8 ; 

3831 ; Octal number to ASCII Decimal number 

3832 ; rl = address of ascii decimal data 

3833 rO0 = octal data word 

3834 [RARRRAAREARAAARARAAARAARRARAARRARRARRARRARRARERAREAREA AERA EEEEEE 

3835 060044 OCTASC: 

3836 060044 010246 mov r2,-(sp) 

3837 060046 010346 Mov r3,-(sp) 

3838 060050 005002 clr r2 :clear the oo igri — pointer : 
3839 060052 005003 i$ ¢lr r3 ;clear decimal di 

060054 005203 2s ine r3 ; increment decinel 

3841 060056 166200 060116 sub dectbl(r2),r0 ;subtract a power of rt from accumulator 
3842 060062 002374 bge :if not negative subtract another 
843 060064 060116 dectbl(r2),r0 ;ad just accumulator so positive 
3844 060070 005303 dec r3 ;adjust decimal digit 

3845 060072 062703 000060 add #60, 73 ;convert decimal to asci 

3846 060076 110321 movb r3,(rl)+ mov ascii digit text fato buffer 
3847 060100 005722 tst r2)+ ;increment table pointer 

3848 060102 005762 060116 tst dectbl(r2) ;check if thats all 

3849 060106 001361 bne 1$ 

3850 060110 012603 mov (sp)+,r3 

3851 060112 012602 mov (sp)+,r2 

3852 060114 rts pe 

3853 060116 dectbl1: 

3854 060116 023420 word 10000. 

3855 060120 001750 word 1000. 

3856 060122 000144 word 100. 

3857 060124 000012 word 10. 

3858 060126 000001 word 1. 

3859 060130 .word 0 

3560 5 RARRAARERRRAEAARRAEARERRAAERRRAREEAREREAEEARREERERRAEE RRR EER RE 

3862 ; ASCII DECIMAL numbers to Octal numbers 

3863 ; ri = address of ascii decimal data 

3864 ; r0Q = address to store octal data low word, high word 

3865 a hs ok dk a de de oe oe do dak a ek ek ik kk kk kk dak ak kk dk dk doh kh dak dk 

3866 060132 SCDEC: 

3867 060132 010546 mov r5,-(sp) 

3868 060134 010446 mov »-Csp) 

869 060136 010346 mov r3,-(sp) 
3870 060140 010246 mov r2,-(sp) 

3871 060142 005004 elr r4 

3872 060144 005003 clr r3 

3873 060146 005002 clr r2 





oo 
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3874 060150 
3875 060152 
3876 060154 
3877 060160 
3878 060162 
3879 

3880 
3881 0 
3882 060172 
3883 060174 
3884 

3885 060176 
ty 060200 


88 
3888 060204 


3892 

3893 060214 
3894 060216 
3895 060220 
3396 


3897 060222 
3898 060224 
3899 

3900 060226 


39 

3915 060240 
3916 060240 
3917 060244 
3918 060250 
3919 

3920 060252 
3921 060256 
3922 


3923 060260 
3924 060266 
3925 060274 
3926 060314 
3927 

3928 060334 
3929 060334 
3930 060340 


010220 
010310 


012602 
012603 
012604 
012605 
000207 


012701 
063701 
105021 


020127 
001374 


112737 
112737 


012701 
105021 


| 
| 
| SIZER Supplied Program Data 


000060 


000003 


000002 


002610 
002366 


002734 
000045 002610 
000101 002611 


002610 


Zs: movb 
beq 
sub 
mov 
Mov 


Mov 
4$: asl 
rol 


br 


1$: mov 
mov 


mov 
mov 
mov 
mov 
rts 


r2,(r0)+ 
r3,(r0) 


(sp)+,r2 
ser 
(sp)+,r4 
(sp)+,r5 
pe 


SEQ 0091 


:if digit equals null than all done 


;save accum 


saccum * 8 


saccums2 


; accum#8 + accuma2 


;add present digit to accum+#10 


;load lo number 
;load hi number 


srestore stack to its orginal 


p RRAARARAAEAEAREERAEEEEREEEAEERRERERERERERRERAEREEERAREARERERERARAE 


; This routine types out the ASCII information passed 
; by the disk controller. This ASCII information is 
; contained in the buffer called DATARE and is offset 


; by 1 word. To fake the 
placed in front of the text. 


DRS macro routine a “#A" is 


5 RRRRRAREEREEAEEREEEAEAREERARERAERERAEREREAREREREEREERERERAREEREREE 


movb 


movb - 
printx 
printx 


outers , 
r +14,r 
(ride 

rl, #prgnam 
+ #prgn 


#45, datare 


#101, datare+1 


2PB13 


#datare 


#datare,rl 
rl)+ 





:get data area address of ascii info 

;add the number of byte transfered 

;put null characters into data buffer after 
;end of ASCII info 


;we do this to fake out the DRS macro 
;put the “s” delimiter for the DRS macro 
;put the “A” for ascii info for the DRS macro 


iNew Line <cr><lf> 
sprint the message returned from the controller 


:;clear out entire data area 


— 


- - 
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SIZER Supplied Program Date 
3931 060342 020127 027% cmp rl, @prgnas : 
3932 060346 001374 one 2s : 
3933 060350 000207 
3934 {PARSE SEEAESEEASESESESAHESEESASSSSASSASEAHK SHES SHAS ARASH SESESA SEEDS 
3935 
3936 : THIS ROUTINE IS TO CHECK ON THE RESPONSE PACKET 
3937 ; GOODNESS. THE COMMAND REFERENCE NUMBER, THE END CODE 
3938 AND THE STATUS ARE TESTED. 
3939 PETE TTTETTTTTTCTTTTTOTTTTCTTOTTOTTTITTTITTTTTTTiTiritit TTT ttt tity 
3940 
seas 060352 RSPCHK : 
3943 060352 013701 002452 mov cmdpak , rl 
3944 060356 013700 002352 mov rsppak ,r0 
3945 060362 020001 cmp r0,rl ;compare CRN numbers 
3946 060364 001014 bne 1$ 
7 060 013701 002462 mov endpak 10, ri 
3948 060372 062701 200 add #200, r1 
3949 060376 013700 002362 mov rsppak+10, rd 
3950 060402 020001 cmp r0,r compare Opcodes 
3951 060404 1004 bne 
3952 0604 013701 002364 mov rsppak+12,r1 ;check the status 
3953 060412 100 bne 1$ ; 
sees 060414 000207 rts pe :if all checks then return 
:if all doesn't check then 
3957 report a bad packet 
3958 060416 022701 000004 1$: cmp #4,r1 , ; 
3959 060422 001005 bne 100$ ;if status is not 4 for GUS, then 
3960 ;report fatal error 10 
3961 060424 022737 000003 002462 cmp rt {mus cmdpak +10 
3962 060432 001001 bne 100$ ; . 
3963 060434 000207 rts pe :if status is 4 for GUS, return to 
Secs ;calling program 
3966 100$: ERRDF 10,df11 ;Bad response packet 
3967 060446 PRNIpkt: | 
3968 060446 Printb #PBlicrn,cmdpak ,rsppak a penee CRN XXXX ,Received CRN YYYY 
3969 060476 005001 clr rl sure ID will be properly 
3970 srepresented in ri 
3971 060500 113701 002451 movb emdlen+3,r1 ;load ri with DRS or MSCP Id 
3972 060504 022701 000002 cmp #DUP.id,rl ;Was this a DUP command ? 
3973 060510 00140 beq 99$ :if so, check DUP response opcode reply 
3974 060512 000137 061344 jmp 191$ ;Jump to MSCP status code check 
3975 060516 013701 002362 99$: mov rsppak+10,r1 ;check response opcode reply 
3976 060522 032701 000200 bit rl ;see if a end command response was send 
3977 060526 001010 bne 2$ 
8 06053 printx #PBllend ;No end bit in response packet endcode 
3979 060550 022701 000201 2s: cmp #201,r1 ia! 
3980 060554 001010 bne 3$ ;check if Get Dust Status command 
3981 060556 printx #PB11GDS 
3982 060576 022701 000202 3$: cmp #202,r1 
3983 060602 001010 bne 4$ ;check if Execute Supplied Program 
3984 060604 printx #PB11ESP 
3985 060624 022701 000203 4$: cmp #203,r1 
3986 060630 001010 bne S$ scheck if Execute Local Program 
3987 060632 printx #PBL1ELP 





diennnid 


ne 
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SIZER Supplied Program Data 
3988 060652 022701 000204 5$: cmp #204 rl . 
3989 060656 001010 bne 6$ ;check if Send Data 
3990 060660 ' printx #PB11SD 
3991 060700 022701 000205 6$: cmp #205,r1 
3952 060704 001022 bne 7$ ;check if Receive Data 
3993 060706 rintx #PB11RD 
3994 060726 rintb #PBSFO,r3,r5 ;"t — Xxx, message number XXXXX iS 
3995 nown to this program’ 
3996 060752 022701 000206 7$: cmp #206,r1 
3997 060756 001010 bne 8$ ;check if Abort Program 
3998 060760 rintx #PB11AP 
3999 061000 8$: rintb #PBllop,cmdpak+10, rsppak + +10 
ros s;CMDpkt opcode XXXX,RSPpkt opcode YYYYY 
4002 061030 013701 002364 Mov rsppak+12,r1 s:find out what kind of status we have 
4003 061034 022701 000000 cmp #0.,r1 
4004 061040 001010 bne 10$ 
4005 061042 printx #pb11s0 status: successful 
4006 061062 022701 000001 10$: cmp #1.,r1 
4007 061066 001010 bne 11$ 
4008 061070 printx lls1 ;status: Invalid Command 
4009 061110 022701 000002 11$: cmp #2.,r1 
4010 061114 001010 bne 12$ 
4011 061116 printx lis2 ;status: No Region Available 
4012 061136 022701 000003 12$: cmp #3.,r1 
4013 061142 001010 bne 13$ 
4014 061144 printx #pblis3 status: No Region Suitable 
4015 061164 022701 000004 13$: cmp #4. ,r1 
4016 061170 001010 bne 14$ 
4017 061172 printx 1is4 ;status: Program Not Known 
4018 061212 022701 000005 14$: cmp Pl . 
4019 061216 001010 bne 15$ 
4020 061220 printx #pbils5 status: Load Failure 
4021 061240 022701 000006 15$: cmp #6.,r1 
4022 061244 001010 bne 16$ 
4023 061246 printx #pblis6 status: Standalone 
4024 061266 022701 000011 16$: cmp #9.,r1 
4025 061272 001010 bne 19$ 
4026 061274 printx #pb1i1s9 ;status: Host Buffer Access error 
4027 061314 19$: : 
4028 061314 Printb yen rsppak +12 ;Response packet status XXXX 
4029 061340 000137 074424 jmp dropunt ;drop unit and go on 
4030 SEE HEE HEHEHE EEE EEF EH EEE EEE E EEE EE EE HEHEHE HEHEHE HEH HEH EHH eee eee Heese 
4031 ; 
4032 ; The oar oe code was necessary to add a RSPCHK for 
4033 ; the MSCP macros. GJK 
4034 ; 
ante SHHHHHSHHH SHES ES ESE SESE HSE HES ESE HEHEHE HES HEHE HOSED ESE HS ES ES ES ESE HHH EHTS 
40 
4037 061344 013701 002362 191$: mov rsppak+10,rl ;check response packet reply 
4038 061350 032701 000200 bit #200, rl ;see if end command response sent 
4039 061354 001010 bne 192$ 
4040 061356 printx #MSCPend no end bit in response packet endcode 
4041 061376 022701 000203 192$: cmp 203,r1 
4042 061402 001010 bne 193$ ;check if GUS command 
4043 061404 printx #MSCPGUS 
4044 061424 022701 000204 193s: chy #204 rl 


SEQ 0093 
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4045 061430 001010 e 194$ scheck if SCC command 
4046 061432 printx #@MSCPSCC . 
7 0614 022701 000211 194$: cmp #21i,ri . : 
4048 061456 001010 bne 195$ check if Online command 
9 161 printx #MSCPONL 
4050 061500 022701 000241 195$: cmp #241,r1 : 
4051 061504 001010 bne 196$ ;check if Read command 
4052 061 printx #MSCPRD 
53 061 022701 000242 196$: cmp #242,r1 
4054 061532 001010 bne 197$ scheck if Write command 
4055 061534 printx #MSCPWR 
4056 061554 197$ printx oHSCPOP. cmdpak +10, rsppak +10 
oo tol pte . XXXX, 
SPpak opcode 
4059 061604 013701 002364 208: Mov rsppak+i2,ri find out what kind of status we have 
4060 061610 122701 000001 cmpb #1.,r1 
4061 061614 001010 bne eis 
4062 061616 printx #ME10 ;status: Invalid Command 
4063 061636 022701 000002 21s: cmp #2.,r1 
4064 061642 001010 bne 22$ 
4065 061644 printx #ME20 ;status: Command Aborted 
4066 061664 022701 000003 223: cmp #3.,r1 
4067 061670 001012 bne 23$ 
4068 061672 printb #ME30,UNIT :status: Unit Offline - Unit Unknown 
4069 061716 022701 000043 233: cmp 5. .Pl 
4070 061722 001012 bne $ 
4071 061724 printb #ME31,UNIT status: Unit Offline - Unit Disabled 
4072 061750 022701 000103 24$: cmp or 
4073 061754 001012 bne 
4074 061756 printb #ME32,UNIT ;status: Unit Offline - Unit Inoperative 
4075 062002 022701 000203 25$: cmp 31.,r1 
4076 062006 001012 bne $ ; 
4077 062016 printb #ME34,UNIT sstatus: Unit Offline - Duplicate Unit 
4078 . : Number 
4079 062034 022701 000403 263: cmp #259. ,r1 
4080 062040 001012 bne 27$ 
4081 062042 printb #ME38,UNIT ;status: Unit Offline - Unit Disabled 
4082 ; by Field Service or Diagnostic 
4083 062066 622701 000004 273: cmp #4.,r1 
4084 062072 001012 bne 30$ 
4085 062074 pr'atb #ME40,UNIT ;status: Unit Available 
4086 062120 022701 000245 30$: cmp #165.,r1 
4087 062124 001012 bne 31$ 
4088 062126 printb #ME55,UNIT ;status: Media Format Error - Not 
4089 : Formatted w/512 Byte Sectors 
4090 062152 022701 000305 31$: cmp #197. ,r1 
4091 062156 001012 bne 32$ 
4092 062160 printb #ME56,UNIT status: Media Format Error - Not 
: Formatted or FCT Corrupted 
4094 062204 022701. 000345 32$: cmp #229. ,.r1 
4095 062210 001012 bne 33$ 
4096 062212 printb #ME57,UNIT ;status: Media Format Error - 
409 ; Uncorrectable ECC Error 
4 0622 022701 000405 33$: cmp #261.,r1 
4099 062242 001010 bne 34$ 
4100 062244 printx #ME58 ;status: Media Format Error - RCT 
| 4101 ; Corrupted 








4104 272 
4105 062316 


4113 062404 


4128 

4129 062554 
4130 062560 
4131 062562 


132 
4133 062602 
4134 062606 
4135 062610 
4136 
4137 062630 
4138 062634 
4139 062636 
4140 
4141 062656 
4142 062662 
4143 062664 
4144 
4145 062704 
4146 062710 
4147 062712 


4148 
4149 062732 
4150 062736 
4151 062740 
4152 
4153 062760 
4154 062764 
4155 062766 
4156 


1 
4157 063006 
4158 063012 


022701 
001012 


022701 
001012 
022701 
001010 
022701 
001010 
022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


Data 
010006 


020006 


000007 


000410 


000450 


000510 


000550 


000610 


000650 


000710 


000750 


47$: 


50$: 


515: 


52$: 


53$: 


printx 
cmp 
bne 
printx 
cmp 
bne 
printx 
bne 
printx 


cmp 
bne 
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SIZER Supplied Program 


#232. ,r1 
44$ 
#ME87 
#264. rl 
45$ 
#ME88 
#296. rl 
46$ 
#ME89 
#328. ,r1 
47$ 
#ME810 
esee...#8 
#ME811 
#392.,r1 
51$ 
#ME812 
#424. ,rl 
52$ 
#ME813 
#456. .r1 
53$ 
#ME814 
#488.,r1 
54$ 


;status: 
;status: 
;status: 


;status: 


;status: 
;status: 


;status: 


;status: 


:status: 


;status: 


;status: 


;status: 


;status: 


;status: 


;status: 


SEQ 0095 
Software Write Protected 
Hardware Write Protected 
Compare Error 
Data Error - Force Error 
Modifier Used 
Data Error - Invalid Header 
Data Error - Data Sync Timeout 
Data Error - Correctable 
Error in ECC Field 
Data Error - Uncorrectable 
ECC Error 
Data Error - One Symbol ECC 
Error 
Data Error - Two Symbol ECC 
Error 
Data Error - Three Symbol ECC 
Error 
Data Error - Four Symbol ECC 
Error 
Data Error - Five Symbol ECC | 
Error 
Data Error - Six Symbol ECC | 
Error 
Data Error - Seven Symbol ECC | 
Error 





F8 
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SIZER Supplied Program Date 


rir H 063014 printx E815 ;status: _— Error - Eight Symbol ECC 
: rror 
4161 063034 022701 000011 54$: cmp #9. .rl 
4162 063040 001010 bne 55$ 
4163 063042 printx #ME istatus: et et Acc Err - Cause Not 
F} vai e 
4165 063062 022701 000051 55$: cmp #41.,r1 
4166 063066 001010 bne 56$ 
4167 063070 printx #ME91 ;status: Host Buf Acc Err - Odd 
4168 ; Transfer Address 
4169 063110 022701 000111 56$: cmp #73.,r1 
4170 063114 001010 bne 57$ 
4171 063116 printx #ME92 ;status: Host Buf Acc Err - Odd Byte 
4172 3 Count 
4173 063136 022701 000151 57$: cmp #105. ,r1 
4174 063142 001010 bne 60$ 
4175 063144 printx #ME93 ;status: Host Buf Ace Err - 
4176 ; Non-Existent Memory Error 
4177 063164 022701 000211 60$: cmp #137. ,ri 
4178 063170 001010 bne 61$ 
4179 063172 printx ;status: Host Buf Acc Err - Host 
4180 3 Memory Parity Error 
4181 063212 022701 000251 61s: cmp #169. rl 
4182 063216 001010 bne 62$ 
4183 063220 pr intx. ;status: Host Buf Acc Err - Invalid 
4184 : Page Table Entry 
4185 063240 022701 000052 62$: cmp #42. ,r1 
4186 063244 001010 bne 63$ 
4187 063246 printx #MEAL :status: Controller Err - SERDES 
3 Overrun or Underrun 

4189 063266 022701 000112 63$: cmp #74, ,r1 
4 063272 001010 bne 64$ 
4191 063274 printx #MEA2 ;status: Controller Err - EDC Error 
4192 063314 022701 000152 64$: cmp #106. ,rl 
4193 063320 001010 bne 65$ 
4194 063322 printx #MEA3 status: Controller Err - Inconsistent 
4195 ; Internal Control Structure 
4196 063342 022701 000212 65$: cmp #138. ,rl 
4197 063346 001010 bne 66$ 
4198 063350 printx #MEA4 ;status: Controller Err - Internal EDC 
4199 : Error 
4200 063370 022701 000252 66$: cmp #170. rl ; 
4201 063374 001010 bne 67$ 
4202 063376 printx #MEAS ;status: Controller Err - LESI Adapter 
4203 : Card Parity Err on Input 
4204 063416 022701 000312 67$: cmp #202. ,r1 
4205 063422 001010 bne 70$ 

0634 préntx #MEA6 ;status: Controller Err - LESI Adapter 
4207 3 Card Parity Err on Output 
4208 063444 022701 000352 70$: cmp #234. rl 
4209 063450 001010 bne 71$ 
4210 063452 printx #MEA7 ;status: Controller Err - LESI Adapter 
4211 3 Card “cable in place” Not 
4212 : Asserted 
4213 063472 022701 000412 71$: cmp #266. rl 
4214 063476 001010 bne 72s 
4215 063500 printx #MEA8 ;status: Controller Err - Controller 








j 


4216 
4217 063520 
4218 063524 
4219 063526 
4220 


4221 063546 
4222 063552 
4223 063554 
4224 


4228 

4229 063626 
4230 063632 
4231 063634 
4232 063654 
4233 063660 
4234 063662 


4235 

4236 063702 
4237 063706 
4238 063710 
4239 

4240 063734 
4241 063740 
4242 063742 
4243 

4244 063762 
4245 063766 
4246 063770 
4247 

4248 064014 
4249 064020 
4250 064022 
4251 

4252 

4253 064042 
4254 064046 
4255 064050 


4256 

4257 064070 
4258 064074 
4259 064076 


4260 
4261 064122 
4262 064126 
4263 064130 
4264 





022701 
001010 


022701 
001012 


022701 
001010 


022701 
901010 
022701 
001010 


022701 
001012 


022701 
001010 


022701 
001012 


022701 
001010 


022701 
001010 


022701 
001012 


022701 
001012 


022701 
001010 


000452 


000053 


000113 


000153 


000213 


000253 


000313 


000353 


000413 


000513 


000553 


000613 


000653 


72$: 


738: 


80$: 


81$: 


82$: 


83$: 


845: 


85$: 


86$: 


\ 


cmp 
bne 


printx 


printb 
cmp 
bne 
printx 
cmp 
bne 
printb 
cmp 


bne 
printx 


cmp 
bne 
printx 
cmp 
bne 
printb 
cmp 
bne 
printb 
cmp 


bne 
printx 
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SIZER Supplied Program Data 


#298. .ri 
73$ 

#MEAQ 
#43.,r1 
74$ 

#MEB1, UNIT 
#75.,r1 
75$ 

#MEBO 
#107. ,rl 
76$ 

#MEB3 
#139. ,rl 
77$ 

#MEB4 

ys Lae 
#MEBS , UNIT 
#203. ,r1 
81$ 

#MEB6 
#235.,r1 
82$ 

#MEB7, UNIT 
#267. ,ri1 
83$ 

#MEB8 
#331.,r1 
84$ 

#MEB 10 
#363.,r1 
85$ 
#MEB11,UNIT 
+ + ld 
#MEB12,UNIT 
#427. ,r1 
87$ 

#MEB13 


;status: 


;status: 


;status: 


;status: 


;status: 


;status: 


;status: 


;status: 


;status: 


;status: 


;status: 


;status: 


;status: 


SEQ, 0097 
Overrun or Underrun 


Controller Err - Controller 
Memory Error 


Drive Erzor - Drive Command 
Time 


Drive Error - Controller 
Detected Transmission Error 


Drive Error - Position Error 


Drive Error -_ Lost Read/Write 
Ready During Transfer 


Drive Error - Drive Clock 
Dropout 


Drive Error - Lost Receiver 
Ready For Transfer 


Drive Error - Drive Detected 
Error ; 


Drive Error - Controller 
Detected Pulse or State 
Parity Error 


Drive Error - Controller 
Detected Protocol Error 


Drive Error - Drive Failed 
Initialization 


Drive Error - Drive Igonored 
Initialization watt 


Drive Error - Receiver Ready 
Collision 


, 
SPH HEH EEE HEHE EEE HEHEHE EEE EE EEE EEE HEHE EEE HEHEHE HEHEHE HEHE HHH HHH HHH eH eee eee er eeeee 


The following is 
physically opens 


the 


lication dependent. 
drive door, a status of ‘Unit Available’ is 


Durin 


LBN testing, if someone 
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SEQ 0098 
SIZER Supplied Program Data 


4273 : reported for the MSCP WRITE command; therefore, the status will be 

4274 ; reported and execution terminated. Otherwise, the status will be 

asic ; reported, and execution will continue. 

4277 : - GUK 

4278 PFE HE EEE SEE EEE FEES EEE EE HEH ES EEE EEE EE EEE EEF E FEE EEE HEHEHE HEHEHE HEHE HEHEHE TES HH HEH HEHEHE 

.4279 

4280 064202 022737 000041 002462 873%: cmp #41, cmdpak +10 

4281 064210 001001 bne 88$ 

4282 064212 000410 br 999$ 

4283 064214 022737 000042 002462 88$: cmp #42, cmdpak +10 

4284 064222 001021 bne 89$ 

4285 064224 022737 000004 002364 cmp #4, ,rsppak+12 ;Was the status Unit Available due to 

4286 ; someone physically opening the drive 

4287 : ;door during LBN testing? 

ases 064232 001415 beq 89$ report status and terminate execution 

4290 064234 999$: Printb #MSCPsts,rsppak+12 erates, prem response packet 
:sta - 

4292 064260 005237 002566 ine ERRCNT ;Update bad block counter 

4293 064264 000207 rts pe s1f MSCP WRITE command, continue until 

4294 sall LBNs are tested 

4295 064266 89$: Sao 

4296 064266 Printb #MSCPsts,rsppak+12 ;Otherwise, print response packet 

4297 status XXXX 

asen 064312 000137 074424 jmp dropunt ;drop unit and go on 

4300 

4301 

4302 Tete eT tte t ttt ttt tt ttt ttt ttt ttt ttt ttt titi ttt ttt ttt ttt ttt ttt T 

4303 i 

4304 BIT FIFTEEN TEST 

4305 PETE TET TTTTTTTT TTT TTT TTTT TTT TTT TTTeT TTT TTT TTT TT TT TTT TTT Te 

4306 064316 BITIST: , 

4307 064316 032714 100000 bit #biti5,(r4) 

4308 064322 001001 bne 100$ 

4309 064324 000207 rts gc 

4310 064326 100$: ERROF ,dfi2 ;Fatal SA error 

4311 064336 011401 mov (r4),r1 

4312 064340 022701 001000 cmp #1000, r1 

4313 064344 001010 bne 1$ 

4314 064346 printx #pb1201 ; 

4315 064366 022701 100001 1$: cmp #100001, r1 

4316 064372 001010 bne 2$ 

4317 064374 printx #pb1202 ; 

4318 064414 022701 100002 2s: cmp #100002,r1 

4319 064420 001010 : bne 3$ 

4320 064422 printx #pb1203 : 

4321 064442 022701 100003 3$: cmp #100003, r1 

4322 064446 001010 bne 4$ 

4323 064450 printx #pb1204 ; 

4324 064470 022701 100004 4s: cmp #100004, rl 

4325 064474 001010 bne 5$ 

4326 064476 printx #pb1205 ; 

4327 064516 022701 100005 5$: cmp #100005, r1 

4328 064522 001010 bne 


6$ 
4329 064524 printx #pb1206 : 


‘. 





4358 


4370 065206 


4383 065354 


022701 
001010 


022701 
001010 


022701 
©91010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 
022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


022701 
001010 


000137 


100006 


100007 


100010 


100011 


100012 


100013 


100014 


100015 


100016 


100017 


100020 


100021 


100022 


100023 


100024 


100025 


100026 


074424 


10$: 


12$: 


14$: 


15$: 


16$: 


17$: 


183: 


19$: 


208: 


21s: 


22s: 


233: 


printx 


printb 
Jmp 
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— ri 


SUSE ri 


$961208 
ars 
#pb1209 
#100011, ri 
10$ 
#pb1210 
#100012,r1 
bepi211 
#100013,r1 
12$ 
#pb1212 
#100014,r1 
be 1013 
#100015,r1 
14$ 
#pb1214 
#100016, r1 
15$ 
#pb1215 
#100017,r1 
16$ 


#pb1216 
{ * mata 


17$ 
#pb1217 
/ * pata 


1 

#pb1218 
#100022,r1 
19$ 


#pb1219 
#100023 ,r1 
20$ 
#pb1220 
#100024, rl 
2is 
#pb1221 
#100025 ,r1 
22$ 
#pb1222 

| eae me | 
#pb1223 


#pbl2,rl 
dropunt 


3SA value: xxxxx 
;Orop unit and go on 


J8 
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4384 

4385 FRRRARAREAAERARERASAAAAEREREREEEEEAREEAEEAAEERERAASAAARARRSREEALALALE 
rit $ Unexpected Interrupt Server 

4388 WUTTTUTTTTTUTITTVITUTTTTTTTTVITTTTTTTITITTTTTTTITITITITi TTT TTT ttt ity 
ry 44 065360 intsrv: 

4391 065360 ERRSF 8,sf100 ;Fatal SA error 

4392 065370 docln :do clean up and quit 

ases 065372 000137 074424 jmp dropunt ;drop test unit and end pass 

4395 


K8 
.MAIN. MACRO VO5.03 Thursday 15-Jan-87 
SIZER Supplied Program Date 
4397 065376 
4398 065376 177777 
4399 065400 177777 
177777 


4405 065404 042737 000100 177546 
4406 
4408 065420 


4412 065432 012737 177777 002310 
13 065440 


4414 065440 005237 002310 
15 065444 023737 002310 002012 


4417 065454 000137 065632 


seas 065630 000401 
4453 065632 


14:33 Page 43 
BGNPROT 
-WORD -1 
-WORD -1 
.WORD -1 
ENDPROT 
BGNINIT 
bic #bit6, 3@LKS 
ADEF #€F . CONTINUE 
BCOMPLETE conton 
READEF #€F .NEW 
_ next 
"mov #-1,LOGUNIT 
NEXT 
ine LOGUNIT 
cmp LOGUNIT ,L$UNIT 
bne i$ 
- jmp ABORT 
; GPHARD LOGUNIT ,PLOC 
BNCOMPLETE NEY? 
Mov 2 ye + 
mov 
mov (e0or +, ipreg 
Mov (r0)+, vector 
Mov (rQ)+ +sunit 
Mov (r0)+,sernbr 
mov (r0)+,untflgs 
conton: clr LSTCRN 
elr LSTVCT 
clr LOPRGI 
clr PRGI 
1$: Mov a4, -(sp) 
mov #$2,004 
clr alPreg 
br $3 
$2: ERRDF 7,DF4 
dodu LOGUNIT 
br next 
$3: mov (sp)+,ae4 
Mov #76,r0 
Mov #rspl,rl 
$4: clr (ride 
sob r0,$4 
or end 


ABORT: 


SEQ 0101 


;Sequential example 
ymake sure clock is off 


;Continue command? 
sYes, get no P-table but still initialize 


New pass 
;if not new then go to next unit number 
sInitialize logical unit nor 


:Point to next logical unit 
;Have we passed maximum? 


3No 

Yes, abort the pass 

:Get the P-table 

if not available get next unit 


store the Ptable address for unit 
:store IPreg address into register 
;store vector 

;store logical drive number 

;store the serial number 


ibasic initialization stuff 


;test to see if controller is there 
;put controller into known state 
;NXM trap at controller IP address 
;drop unit 

;get new unit 

smove value back into location 4 


;clean out all packets and interrupt flags 
;and the command area 





L8 
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SEQ 0102 
SIZER Supplied Program Date 


4454 065632 DOCLN :Do clean-up and abort the pass 
4455 065634 END ce 
4456 065634 ENDINIT Finished 
i 
4459 065636 BGNAUTO 
065636 DODU LOGUNIT 
4461 065644 0 
4464 065646 005077 114452 elr alPreg ;get controller into known state 
4465 065652 042737 000100 177546 bic #oit6, d@LKS ymake sure clock is off 
4466 065660 Break s;waste some time 
4467 065662 E N 


4468 
4469 065664 BGNDU 
4470 ot ng 042737 000100 177546 bic #bit6, @#LKS ;make sure clock is off 


4471 06567 
4472 065716 E 
4473 


printf #D0RPunt,unit 





MB 
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4475 065720 








































012737 
004737 


012737 
032737 




































































































000012 
051522 
000074 
100000 


000040 
000000 
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177546 
002574 


002574 
002336 


002402 


114102 


BGNTST 1 
bic bi t6, JL make sure clock is off 
mov #10. BELAY: ;load data for 10 second delay 
jer pc, hrdint init the controller 
Mov AY z;load data for 60 second delay 
bit &iti2, untflgs check if just want to test a Floppy 
bne tstdrv 
jmp ROVER 
p RRRREREERERAARRARREERERERERREREEEREREEARREARERAEREEAREEREEAARAEARR EELS ‘aan 


; test the diskette using MSCP commands 
WUTUVETTTTTTTTTTTTTTTTITTTUTITITITITTTITITITIT TTT TT TT TTT TTT ttt tt tity 
tstdrv: 

printx #ASMSGT ;Output a <cr><lf> for looks 


GMANID ‘drv. nor, UNIT,D,0,0,255., 
;Ask user to enter the test drive number 


printx #DSKUT ;Print message indicating disk under test 
mov #10. ae ;load data for 10 second delay 
jsr pc, HRDIN Init controller to allow drive to be 
ibr t ON LINE 
mov #60. ,DELAY ;load data for 60 second delay | 
SCC . ;Set the Controller Characteristics 
SCC6: bit #bit15,cmdrng+2 ;test qurerento of ring to make sure 
swe own j 
bne SCC6 :if we don't, wait until we do 
mov #40 ,cmdlen sload length of packet to be sent 
movb #0,cmdlen+2 ; load message type and credit value 
movb aHSCP id,cmdlen+3 ;load MSCP connection ID 


s;load new CRN 


6 
mov #op. sec ,cmdpak +10 ; load opcode 
elr emdpak +12 :lo ad aoal? ave 
clr cmdpak +14 NO MODIFIERS 
elr emdpak +16 sload controller flags 
elr cmdpak +20 ; load default MSCP timeout value 


mov lhc geo ee ELT PLACE a : 

mov prem rsprn ilo weepenas acket area into rin 
mov gemdpak .cndrng i load and me area into A te, 
mov #14 »Psprng+2 ‘DORT OWNERSHI BIT. 

mov #biti5, cadregee 

jsr »POLLWT ;GO TO POLL AND WAIT ROUTINE. 


UTETTTT Ser TT TT Tere Teter TTT TTT TTT TT TTT Te TT TET Tee TTT TTT TTT Teer 
RFD6: ;INTR TO HERE. 


N8 
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a 


066260 
066264 
066272 


4501 066276 
066276 


SIZER Supplied Program 


062706 


012777 
004737 


032737 


062706 
013737 
013737 
162737 
005637 
012777 
004737 


112737 


Data 
000006 


065360 
060352 


100000 


000014 
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114034 


002534 
002446 
002450 
002451 
002456 
002462 


add #6.sp fix stack for interrupt (4), 
“ spollwt su subrtn (2) 
mov #intsrv,@vector ECTOR 
jsr pc ,RSPCHK :Go to nadie that will check on 
;the re response recvd from the out. 
sit will check the cmd ref 
snum, the endcode, and status. 
ONLINE ;Bring the Unit On Line 
ONL7: bit #bit1S,cmdrng+2 ;test ree of ring to make sure 
;we Own | 
bne ONL7 ;if we don't, wait until we do 
mov #44 ,cmdlen sload length of packet to be sent 
movb emdlen+2 ;load message type and credit value 
movb aMSCP. id, cmdlen+3 ;load MSCP connection ID 
ine cemdpak ; load new CRN 
clr cmdpak +2 c 
mov UNIT , cmdpak +4 ;unit number 
clr cmdpak +6 
mov #op.onl, cmdpak +10 sload opcode 
elr cmdpak + +i2 ; load aodi flere 
clr cmdpak +14 sreserved 
clr cmdpak +16 ; flags 
clr emdpak +20 
clr emdpak +22 
elr cemdpak +24 
elr emdpak +26 
clr cmdpak +30 
elr emdpak +32 
elr cmdpak +34 ;use default tuning parameters 
clr cmdpak +36 
mov eh pen 5 nD pen PLACE on . 
mov érsppak ,rsprng ilo sospenas packet area into rin 
mov #emdpak ,cmdrng ;load command packet area into riage 
mov #140000, rsprng+2 ;PORT OUNERSHI BIT. 
Mov biti ,cmdrng+2 
jsr »POLLWT :;GO TO POLL AND WAIT ROUTINE. 
PUTeTeTT SeCTTTTTeTeTeTeTTTTT TTT TTT TTT TTT eT Te Tere TTT TT TTT 
RFD?7: ;INTR TO HERE. 
#6,Sp i Fix stack for interrupt (4), 
;pollwt subrtn (2) 
mov rsppak +44 ,MAXLLBN :save low word of Max Available LBNs 
mov rsppak +46 ,MAXHLBN ;save high word of Max Available LBNs 
sub #1,maxllbn iget max lbn versus size 
sbe maxh lbn 
mov #intsrv,@vector * CHANGE VECTOR 
jsr pc ,.RSPCHK ;Go to routine that will check on 
ithe response recvd from the mut. 
all myo check the cmd ref 
endcode, and status. 
GUS d ;Get the Unit Status 
GUS10: bit #bit15,cmdrng+2 ;test emerchip of ring to make sure 
swe Own i 
bne GUS10 ;if we don't, wait until we do 
mov #14,cmdlen sload length of packet to be sent 
movb #0, cmdlen+2 s;load message type and credit value 
movb aMSCP. id, cmdlen+3 ;load MSCP connection ID 





SEQ 0104 


= Sa ete a HE 
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“= cadpax . ;losé nen CRN 

elr . 

mOv UNIT , cmdpak +4 punit number 

elr cmdpak +6 

MOv #op.gus, mets 10 ;load opcode 

clr comdpak +1 ; load aod; fiers 

clr cmdpak + ta :NO MODIFIERS 

mov #RFD10,avector ;NEW VECTOR PLACE 

mov érsppak, rsprng i load ——— packet area into ring 
mov #c ak ,cmdrng ; load acket area into ring 
mov #14 »rsprng+2 ;PORT SONERSHI BIT. 


mov #biti5, eqeragre 
jsr ,POLLWT ;GO TO POLL AND WAIT ROUTINE. 
cane ~~” “menenumenannenncnen 5 1 Reman 





R TO HERE 
062706 000006 add #6,Sp fix stack for interrupt (4), 
; llwt subrtn (2) 
066702 012777 065360 113416 mov #intsrv,@vector HANGE VECTOR 
066710 013737 002416 , 002564 mov r ak+44, trksiz 
066716 013737 002564 002562 mov trksiz, bytsiz ;Calculate bytes per track 
066724 000337 002562 swab bytsiz 
066730 006337 002562 asl bytsiz ;BYTSIZ = TRKSIZ * 1000 Octal 
066734 004737 060352 jsr pc ,RSPCHK + 3Go to routine that will check on 
;the response recvd from the rh 
sit will check the cmd ref 
fi snum, the endcode, and status. 
4503 066740 CMPR ;Compare the data written to the disk 
066740 005001 elr ri ;make sure bits 8-15 are zero in ri and r2 
066742 005002 elr r2 
066744 005037 002552 clr LOLBN ;Clear low and high words of LBN counter 
066750 005037 002554 clr HILBN ‘ 
066754 005037 002566 elr ERRCNT ;Clear cumulative error counter 
066760 005037 002570 clr TRKCNT :;Clear track counter 
066764 NUTRK11: 
066764 005000 clr r0 ;Set offset = 0 
066766 005003 cle - #3 ;Clear bad byte counter 
066770 WRITE ;Send data from SNDBUF to disk 
000012 B=B+1 ' ; increment the CRN number 
066770 wrttmp \B ;Call variables B, C, and D as if they are numbers (\) 
066770 032737 100000 002534 WRT1l2: bit #biti5, emdrng+2 :test eunerentp of ring to make sure 
;we OWN | 
066776 001374 bne WRT12 ;if we don't, wait until we do 
067000 012737 000040 002446 mov #40,cmdlen ;load length of packet to be sent 
067006 112737 000000 002450 movb #0, cmdlen+2 ;load message type and credit value 
067014 112737 000000 002451 movb #MSCP. id, cmdlen+3 ;load MSCP connection ID 
067022 005237 002452 ine oe ;load new CRN 
067026 005037 002454 elr caseek se ; 
067032 013737 002330 002456 Mov UNIT, cindpal: +4 sunit number 
067040 005037 002460 clr emdpak +6 
067044 012737 000042 002462 mov am wr sgadpak et ; load opcode 
067052 005037 002464 elr ak +12 ; load peal Tiare 
067056 013737 002562 002466 mov BYT IZ, sgadpako5s sbyte count 
0€7064 005037 002470 clr eSNBSLr 
067070 012737 003000 002472 mov ~ ah sendpak 20 ;address of buffer 
067076 005037 002474 elr ak +22 


067102 005037 002476 clr am 





j 
——— 
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005037 
013737 


012777 
004737 


000013 


032737 


005037 
013737 
013737 


012777 
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113114 


clr 
clr 
elr 
Mov 
Mov 


mov 
mov 
mov 
mov 
mov 


LOLBN, cmdpak +34 
HILBN, cmdpak +36 


ne spp natn 
sppak ,rsprng 
ais $6'¢ 2 
»Psprng+ 
bi t15,cadrnge2 
LWT 


slow word of lbn 
shigh word of lbn 


;NEW VECTOR PLACE : 
;load response packet area into ring 
;load command packet area into ring 
;PORT OWNERSHIP BIT. 


;GO TO POLL AND WAIT ROUTINE. 


jsr 
pRRRARARAEEAERRARERRERARRERERERRAERARERAERERRAAEEREREREREREEAEARE EERE EE 


RFD1e: 
add 
Mov 
jsr 
B=B+1 


readtmp \B 


READ13: bit 


#6,Sp 


#intsrv,@vector 
pe ,RSPCHK 


~ 


;INTR TO HERE. 

fix stack for interrupt (4), 
spol let subrtn (2) 

HANGE VECTOR : 

:;Go to routine that will check on 
;the response recvd from the mut. 
sit will check the cmd ref 

s;num, the endcode, and status. 


; ;Get data from disk and place it in RCVBUF 
; increment the CRN number 
:Call variable B as if it were a number (\) 
sthe low word of lbn, and HILBN carries the high 


: sword of lbn 
#bit15,cmdrng+2 


#0,cmdlen+2 
Se ae 


LOLBN, emdpak +34 
HILBN, cmdpak +36 


#RFD13,avector 


#bit15,cmdrng+2 
WT 


;test ownership of ring to make sure 
swe own it 

;if we don't. wait until we do 

;load lengti: of packet to be sent 
;load message type and credit value 
s;load MSCP connection ID 

;load new CRN 


;unit number 
:load opcode 
;load modifiers 
byte count 


;address of buffer 


;lo word of lbn 
shi word of lon 


;NEW VECTOR PLACE 

;load response packet area into ring 
; load command pocket area into ring 
;PORT OWNERSHIP BIT. 

;GO TO POLL AND WAIT ROUTINE. 


RARE AREEEAEEEEAEEABEAREEAEEASAAASLEEAAESAAAEAAAASEALALASEAAASALAAEEEE 


RFD13: 


sINTR TO HERE. 


SEQ 0106 
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SEQ 0107 


ee ee 


067426 062706 000006 add 76,Sp ifix stack for interrupt (4), 
; spollwt subrtn (2) 
067432 012777 065360 112666 mov #intsrv,@vector ;CHANGE VECTOR 
067440 004737 060352 jsr pc ,RSPCHK ;Go to routine that will check on 
;the response recvd from the mut. 
:it will check the cmd ref 
;num, the endcode, and status. 
067444 126060 030376 003000 CMP11: cmpb RCVBUF (r0) , SNDBUF ( r0 ) , 
:Is the data in SNDBUF equal to data in RCVBUF? 
067452 00140 bea UPDT11 :If so, skip bad byte counter update 
067454 005203 ine r3 ;Update bad byte counter 
067456 5200 UPDT11: inc rd sIncrement offset 
067460 023700 002562 cmp BYTSIZ,r0O 
067464 001367 bne CMP 11 :If not at the end of buffers, compare next byte 
7466 005703 tst r3 
0€7470 001413 beq CNTR1iL :Branch over Bad Byte Report if none found 
067520 063737 002564 002552 CNTR11: add TRKSIZ,LOLBN ;Update track counte 
067526 005537 002554 adc HILBN ;Add carry from COLON to HILBN 
067532 023737 002554 002560 OVERI1: cmp HILBN,.MAXHLBN =; If high word of LBN <> Maximum high word 
‘ :of LBN, update counters 
067540 001011 bne JMP 11 
067542 023737 002552 002556 cmp LOLBN,MAXLLBN ;If high word of LBN = maximum high word 
;0f LBN and low word 
;0f LBN <= Maximum low word of LBN, 
go to next block 
067550 002011 bge END11 
067552 022703 000000 cmp #0,r3 ;Check to see if any bad bytes found 
067556 001402 beq JMP11 ;1f none, go to next track 
067560 005237 2 ine ERRCNT ;Otherwise, update error count 
067564 005237 002570 JMP11: ine TRKCNT ;Update track counter 
067570 000137 066764 jmp NUTRK11 Go to next track 
4504 . swith the data in memor 
4505 067574 printx #DONE ;Print message indicat ine that all LBNs 
4506 son the disk 
4507 : shave been tested and bad status reported 
4508 067614 printb #BTFND,ERRCNT ;Print mess indicating number of bad 
4509 iblocks foun 
4511 067640 GMANIL do.agn,ENDIT,O,NO ; 
;Ask user if wants to test another floppy 
4514 067654 005737 002572 tst ENDIT ;Was response no?? 
4515 067660 001002 bne is 
4516 067662 000137 074424 jmp dropunt :If so, drop unit and end pass 
ails 067666 000137 065762 1$: mp tstdrv ;If response was yes, jump to tstdrv 
4519 067672 122737 000023 002340 ROVER: cmpb #rqdx3,mdlnor ;Doesn't want to test floppy 
4520 ;eheck if RQDX3 controller 
4521 3and continue formatting 
4522 067700 001403 beq 2s. : 
4523 067702 042737 100000 002336 bic #bit15,untflgs sif other ther RQOX3 than impossible 
4524 ' ;to run auto sizer or in autg mode 
4525 067710 032737 100000 002336 23: bit ;test if aute mode is enabl 


SottES ett igs 


4526 067716 001412 beq if not skie the auto sizer routine 
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SIZER Supplied Program Date 


4527 
4528 067720 
4529 067724 
4530 067726 
4531 
4532 067730 
4533 067734 
4534 
ate 067740 


536 
4537 067744 
4538 067744 
4539 067752 
4540 756 


4546 
4547 070022 
4548 070026 
4549 070030 
4550 070034 
4551 


4552 070034 
4553 070042 
4554 070046 
4555 070054 
4556 070100 
4557 
4558 070124 
4559 070132 
4560 070134 


4561 
4562 070154 


4570 070206 

4571 070210 

4572 070214 

4573 

4574 070214 
70214 


012700 
000240 
077002 


005037 
004737 


004737 


012737 
005077 


012737 
004737 
012737 


032737 
001011 
000411 
012737 


012737 
012737 


023727 
001402 
000137 


032737 


177777 
002606 
054334 
056172 
000001 
112346 
002322 
002322 
074424 
000012 
051522 
000074 


100000 


047506 
046522 
052101 
002342 
070462 


100000 


15-Jan-87 14:33 


002574 
002574 


;waste just a little time 


ssay_ is the first time for check on pollut 
sif it is then rum WTO SIZER on the 
;controller 

:display information from autosizer 

rout ine 


ican any spurious interrupts 


; set this to a NOP oy APT compatability 
; skip manual quest 

; WARNING - remove pest diskette first 

; Insert new diskette 

; DO you want to continue 


; Yes, run format 
; No, drop unit 


:load data for 10 second pores 

; Reinit ctrl in case of no om state 
lead data for 60 second delay 

; Print the disk controller a number 
: Print microcode version number in dec. 


;test if auto mode is enabled 
sbranch if in auto mode else 

;ask for the User what local program 
she wants to run 


splace “FORMAT” into ascii buffer if 
;in auto mode 


scheck microcode rev number 
;If rev = 2 continue execution 


#DUP Fmt , #<DUPend-DUPfmt>; downline load the rogram DUPFMT 


3 test pares of ring make sure we 
sown i 

sif we don't own it wait until we do 
s;load length of packet to be sent 

: load type and credit value 
;load DUP connection ID 


Page 44-5 
11$ mov #-1,r0 
te r0,11$ 
elr recv .done 
jsr pc, AUTOsizer 
jst pc ,AUTOdis 
1$: 
Mov #1,recv.done 
clr ys 
printx #ASMSGT 
ELPemd: 
br 4$ 
br 3$ 
4s: clr boot 
GMANIL bot.dev,B00T,-1,YES 
tst BOOT 
bne 3$ 
jmp dropunt 
3$: 
mov #10. ,delay 
jsr pc hrdint 
Mov #60. ,dela 
printb #pb9,mdlnobr 
printb $pb10,mednbr 
pee + aa untflgs 
GMANID ages pro. PREnam, A, -1,6.,6.,yes 
br 2s 
1s: 
Mov #°F0,PRGnam 
MOV #"RM,PRGnam+2 
. Mov #”AT,PRGnam+4 
: cmp mednbr , #2 
beq NHOW2 
jmp NHDW1 
NHDW2 : 
oacevrre. 
ESP14: it #biti5, emdrng+2 
bne ESP14 
MOv #50,cmdlen 
movb #0,cmdlen+2 
movo #dup.id,cmdlen+3 
ine cmdpak 
elr CMDpak +2 
clr CMDpak +4 





- 
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070262 


4575 070456 
4577 


4579 
4580 070462 
0462 


070570 
070576 
070604 





062706 


012777 
004737 


000137 


032737 


012777 
012737 
012737 


Data 
002460 
000002 
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002472 


111722 
26 


111654 


111530 
002526 
002532 


SEQ 0109 


elr CMDpak +6 
mov op .esp , CMDpak +10 :load up opcode 
mov #0,¢ +12 on atand ro modifier 
— @<DUPend-DUPFrt> .cmdpak ia° s:load length of prg into buffer 
elr ¢c . 
mov fmt ,cmdpak +20 ;starting address of downline load org 
clr CMDpak +2 
elr CMDpak +24 
elr CMDpak +26 
elr CMDpak + 30 
clr CMDpak +32 : 
elr CMDpak +34 soverlay buffer descriptor 
clr CMDpak +36 
elr CMDpak +40 
elr CMDpak +42 
elr CMDpak +44 
elr ak +46 
mov #RFD14,avector ;New vector place 
mov érsppak ,rsprng ;load response packet area into ring 
mov sacar coon ; load command packet area into ring 
mov #140000 ,RSPRNG+2 :Port ownership bit. 
mov #bit15,CMDRNG+2 . 
jsr P WT ;Go to poll and wait routine. 
p RRRRRAR AREER EE AARERERARERRERERRERARAREREERERARERAAEEE EERE RARE SELES 
tee 2 aah ag t (4), poll 
.sp fix stack for interrup » pollwt 
: ssubrtn (2) 
mov #intsrv,@vector ;Change vector 
jsr pc, RSPCh ;Go to routine that will check on 
;the response recvd from the mut. 
jmp RCDemd 
NHDW1 : 
EXLCPRG PRGnam 4 ;Execute Local program “FORMAT” or 
ELP15: bit #bit15,cmdrng+2 stest meres of ring make sure we 
sown i 
bne ELP15 if we don't own it wait until we do 
mov #22,cmdlen sload length of packet to be sent 
movb #0,cmdlen+2 ; load type and credit 
movb #dup.id,cmdlen+3 ;load DUP connection ID 
ine cmdpak ;load new CRN 
elr emdpak +2 
elr emdpak +4 
elr cmdpak +6 
mov #op.elp,cmdpak +10 ;load up opcode 
mov #stdaln,cmdpak +12 ;stand tiene modifier 
mov #6,7r0 ;6 letters transfer 
mov #emdpak +14,r1 starting 3 address we place program name 
Mov #PRGnam,r2 ;start of Program Name 
rfdjl5: movb (r2)+,(rl)+ ;add 2 to oth then store 
rd, rfdj15 
Mov #RFD15,avector iNew vector place 
Mov #rsppak ,rsprng ; load response packet area into ring 
mov ¢cmdpak ,cmdrng ;load command packet area into ring 


G9 
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4581 

4582 

4583 070650 

4584 

4585 070656 

4586 070660 

4587 070670 

4588 

4589 070674 

4590 070674 

4591 070674 
070674 


070702 


071020 
071024 





012737 
012737 
004737 


062706 


012777 
004737 


122737 
001406 
000137 


032737 


062706 


140000 
100000 
047376 


000011 


074424 


000006 
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002530 
002534 


111462 


002371 


mov #140000 ,RSPRNG+2 
mov bi t15,CMDRNG+2 


jsr pc ,POLLWT 


SEQ 0110 


;Port ownership bit. 
;Go to poll and wait routine. 


fRRARERRARARAEREERERRAREAERERERRAAERERERERERERERAAERREREREEARERER EERE EES 


RFD15: 
add #6,Sp 
Mov #intsrv,@vector 
jsr pc ,RSPCHK 


cmpb #bit3+bi tO, rsppak+17 


pee 1$ 
ERRDF 2,DF3 
jmp dropunt 


1$: 

RCDcemd: 

RECVDAT #datare, #80. 

RCD16: bit #bit15,cmdrng+2 


bne RCD16 

Mov #34,cmdlen 

movb #0,cmdlen+2 

movb SED. 6S 
¢ 


clr cmdpak + 
mov ne ote Meee 


mov #RFD16,@vector 
MOV ¢rsppak ,rsprng 
mov #cmdpak ,cmdrn 
mov #140000, RSPRNG+2 
Mov #b it15,CMDRNG+2 
jsr pe, POLLWT 


;Intr to here. 

:fix stack for interrupt (4), pollwt 
;subrtn (2) 

;Change vector . 

;Go to routine that will check on 
;the response recvd from the mut. 
sit will check the cmd ref 

snum, the endcode and status. 
swhatever they wrote 


;is this program a standalone, DUP 
;dialog type 


; "Device Fatal can't do remote programs” 
;drop unit and go on 


iaoag parties of ring make sure we 
sown i 

;if we don't own it wait until we do 
sload length of packet to be sent 
;load msg type and credit 

s;load DUP connection ID 

;load new CRN 


:;load up opcode 


. #no modifiers 


s;load address of buffer descriptor 


;New vector place 

;load response packet area into ring 
;load command packet area into ring 
;Port ownership bit. 


;Go to poll and wait routine. 


f RR AMARA AAR A RAKE RARER EKER AERA R ARERR EA EERE EERE ERARERERAAREREEES 


RFD16: 
add #6, Sp 


;Intr to here. 
;fix stack for interrupt (4), pollwt 


—_ 


eT 


~H9 
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SEQ O111 
SIZER Supplied Program Data 
ssubrtn (2) 
071072 012777 065360 111226 Mov #intsrv,avector ;Change vector ‘ 
071100 004737 060352 jsr pc ,RSPCHK ;Go to routine that will check on 


;the response recvd from the mut. 
sit will check the cmd ref 
snum, the endcode and status. 


4592 3+ 
4593 ; 
4594 ; r3 = type 
4595 : r4 = SA adrs 
aast ; r5 = sub number 
4598 071104 113703 002611 DUPDLG: movb datare+1,r3 :get dup type info 
4599 071110 006203 asr r3 
1112 006203 asr r3 
4601 071114 006203 asr r3 
4602 071116 006203 asr r3 
4603 071120 042703 177760 bic #type,r3 ;mask off all but DUP type 
4604 071124 013705 002610 mov datare,r5 ;get dup message number info 
ache 071130 042705 170000 bic #msgnbr ,r5 ;clear out top 4 bits 
4607 
4608 3+ 
4609 ; Check for the type, | 
4610 ; if QUESTION type, it will be answered by sending 
4611 ; an answer through a Send command which will be followed 
acit ; by a Receive command to await further instructions. 
4614 ; If a DEFAULT QUESTION type is given an answer will 
4615 ; either be given or a blank send command returned. 
4616 ; Either way we will do a Send command followed by a 
rst} ; Receive command. 
4619 ; if INFORMATIONAL type, check message number and type 
an5t ; inforrmation according to message number given. 
4622 ; if FATAL ERROR type, check message number and print 


; be given following this type of command. 


; If TERMINATION type check the message number and print the | 
; correct message. yeual ty this implies a succesful 
; end to the formatter. Aft 


; If SPECIAL type we are asking for the FCT table to be passed 
; to the RQDX3 controller. We will send the table with a Send 
; command and then to a Receive command to proceed. 


4623 ; error seeege aqeordinesy. No other commands will 
; oll y 
; er this command we exit the program 
q 


3 . 
4634 071134 022703 000001 stn: cmp #Quest ion, r3 stest for “question” subtype 


4635 071140 001117 ne dfgstn ;if not branch 

4636 071142 032737 020000 002336 bit #bit13,untflgs ;see if we are working on a known 
4637 ;controller 

4638 071150 001077 bne qnbra iif not type out ascii 

4639 071152 122737 000106 002734 cmpb #'F ,prgnam ;if running the format program then 


4640 sprint info 
anes 071160 001073 bne qnbra ;else just go for an answer 





r-— 


19 


4643 071162 
4644 

4645 071166 
4646 071172 
4647 ©71174 
4648 071202 
4649 071204 
4650 071224 
4651 071226 
4652 


4653 071234 


4660 071274 


4672 071374 
4673 

4674 

4675 071400 
4676 071404 
4677 071406 
4678 071412 
4679 
4680 9/1420 
4681 071422 
4682 071426 
4683 

4684 071434 
4685 

4686 071436 
4687 

4688 071442 
4689 071446 


4690 
4691 071450 


4695 071502 
4696 

4697 071506 
4699 071512 





004737 
022705 
001036 
032737 
001012 
000417 
012737 
012737 


022703 
001402 
000137 
032737 


004737 


022705 
001043 


032737 
001011 
000406 
013700 
012701 
004 


060334 


002334 
002610 
06004 

072022 
060240 
072022 


000002 
072236 
020000 


071776 
000106 


060334 
000001 
100000 
002330 


002610 
060044 


002336 


002610 


002612 
002614 


002616 
002620 


002336 


002336 


002734 


002336 


anbro: 


GMANID 
i$: 


2s: 
qnbr7: 


GMANID 
1$: 


2s: 


SraND 


dfastn: 


i$: 


2s: 


dqnbr 1: 


GMANID 
33: 


jsr 
cmp 
bne 
bit 


bne 
afdat ,DATARE,A,177777,10.,10.,no 
br 2$ 


mov 


Mov 
Mov 
Mov 
mov 
Jmp 
cmp 
bne 
bit 


bne 
afser,DAIARE,A,177777,8.,10.,NO 
br 2s 


mov 
mov 
jsr 
Jmp 


Sk. 


cmp 
bne 


bit 


bne 
ot. a. »A,177777,0,3, YES 


mov 


te o 1 


& 
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SIZER Supplied Program Date 


pe,.c 1rDUPbuf 
ns 

r 
#bitiS,untflgs 


#°06,datare 


#"-1,datare+2 
#"7-,datare+4 
#°19,datare+6 
#°86,datare+10 
SOTemd 


#775 
anbra 
Fp! Resear igs 


sernbr ,r0 

édatare rl 
,OCTASC 

Diemd 


SEQ O112 


clear out data buffer so DRS macros 
;don't show default 

;check for message number 

check for next message number 


DATE MM-DD-YYYY ? 
;The date is ot used anyway so any 


idate will do 
T'll be ae this day 


sbranch to Send Data command 

;check for message number 

;check for next message number 
;SERIAL NUMBER 9 digits ? 


iplace to stick ascii 
convert octal to decimal ascii 


K_ ANSWER ohare, 177777.0..10° YES “give it Tee ee 


spertuaet.  ° 


artis, untflgs 
2s 

danbra 

#'F ,prgnam 
danbra 

pc ,.clrDOUPbuf 
#1,r5 

danbr4 


wits. ,untf#lgs 
unit, rd 


#datare,rl 
pe ,OCTASC 


;branch to Send Data commard 


:test for “Default Question” subtype 


sif not branch 
;see if we are working on a known 
;controller 


sif not type out ascii 

;if running the format program then 
sprint info 

;else just go for an answer 


:clear out data buffer so DRS macros 
:don't show default 

;check for message number 

;check for next message r umber 

;put in message number 


sAsk for UNIT NUMBER 0-255 ? 


iget unit number if in auto mode from 
ardware P table 

:store decimal ascii conversion in 
;data area 

;convert octal to ascii decimal in 
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SIZER Supplied Program Date 


4700 
4701 
4702 071516 


4705 071532 
4706 
4707 071540 


4710 071552 
4711 
4712 071552 
4713 


16 
4717 071572 
4718 071600 
4719 071602 

4720 
4721 071622 

722 


47e 
4723 071626 


4729 071672 
4730 

4731 071676 
4732 071702 
4733 071704 
4734 071712 
4735 071720 
4736 


4737 071722 
4738 071726 


4747 071752 
4748 
4749 071772 
4750 
4751 
4752 

' 4753 
4754 071776 
hes 071776 


ae 


000137 


000137 


012737 
000410 


000137 


004737 


0026 
002330 
060132 


072022 
000005 
000131 
100000 
072022 
000006 
000116 
100000 
002330 
056162 


003102 
000131 


072022 


060240 
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002330 


002610 
002336 


002610 
002336 


002610 
002336 


002610 


4$: 


2s: 


1$: 


dqnbr4 : 


GMANID 
1$: 


danbor5: 


GMANID 
1$: 


danbré : 


1$: 
GMANID 


2s: 


danbra: 


mo 
bit 


1$ 
#4 unit 
2s 


SOTemd 


#4,r5 

danbr5 
#'N,datare 

> ieee 


bne 
dfbad, DATARE,A,177777,0,1, YES 


jmp SOTemd 
cmp #575 
bne r6 
Mov #'Y,datare 
eS #bitiS,untflgs 
dfdwn,DATARE,A,177777,0,1, YES 
jmp SOTcmd 
cmp #6,r5 
bne danbra 
mov #'N,datare 
bit #biti5,untflgs 
beq 1$ 
mov unit, rl 
eed onsg art 
+4,r 
cmp UITO+UITsiz-2,(r1) 
bne 2$ 
mov #' Y,datare 
br es 
dfcon,DATARE.A,177777,0,1. YES 
jmp SDTemd 
jsr pc, typDUPbuf 


;data area 


s;address of ascii decimal data 
;address to store octal conversion 
:convert ascii decimal to octal 

;make sure unit number is less than 4 
;or between 0-3 


;subtract 4 until unit is less than four 


;branch to Send Data command 


check for message number 
check for next :—y number 
set the default for 


<p existing bad block information 
sbranch to Send Data command 


;check for message number 
s;check for next mgcenes number 
;Set the default for YES 


Use Down Line Load (Y or N)? 
~ oan to Send Data command 


;check for message number 
s;check for next 2 number 
;set the default for 

;is this auto mode 


; first cylinder entry 


; er to current unit entry 
H it an RD51? 

YES, mak gly ti be 

; e ques 7 answer ani cause 
; NO Ect tables on ROS) 

; set the default for NO 

; and skip question 


;Continue if bad block information is 
;inaccessable (Y or N)? 


;if unknown use default and continue 
swho knows, maybe it will be useful 
;some day 


;type out ASCII sent by disk controller 
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SIZER Supplied Program Date 


4757 072002 
758 


4 
4759 072022 
4760 072022 
072022 


072210 


072214 
072214 


072220 
072226 


4761 072232 
4762 
4763 
4764 
4765 072236 
4766 072242 
anes 072244 


68 
4769 072252 
4770 072254 
4771 


4772 072262 
4773 

4774 072264 
4775 072270 





012777 
004737 


000137 


022703 
001046 
032737 
001036 
122737 
001032 


022705 
001012 


072214 
002352 
002452 

0000 
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002534 


002446 
002450 
002451 


110100 


002734 


GMANID 


SOTemd: 


SOT17: 


ASK ANSWER ,DA” ARE ,A,177777,0.,10., YES 


SENDDAT renecS 


bit 


15,cmdrng+2 


80, cmdlen+2 
#dup.id,cmdlen+3 


pe. 


:give it an answer 


:sent the answer 
;test earns of ring make sure we 
sown it 
;if we don’t own it wait until we do 
sload length of packet to be sent 
:load cod nag type and credit 

seesantien Id 
“oo new C 


:load up opcode 
ino nod fiers 


;load address of buffer descriptor 


:New vector place 

;load response packet area into ring 
;load command packet area into ring 
:Port ownership bit. 


;Go to poll and wait routine. 


PRRREREREERAESEEAEEEAERAEEAAESEEASAEASEAAEASEES AREA AAA SEALALASEALELE 


RFD1?: 
add 


inoro: 


#6,Sp 


#intsrv,dvector 
pe ,RSPCHK 


RCDcmd 


#Inform,r3 
term 
#bit13,untflgs 


inora 
#'F ,prgnam 


inbra 


#0,r5 
inorl 


;Intr to here. 

ifix stack for interrupt (4), pollwt 
;subrtn (2) 

;Change vector 

;Go to routine that will check on 
;the response recvd from the mut. 

:it will check the cmd ref 

snum, the endcode and status. 

;do another receive cmd 


stest for “Informational” subtype 
;if not branch 
;see if we are working on a known 
scontreller 

if not type out ascii 
if running the format program then 
sprint info 


;check for message number 
;check for next message number 


SEQ 0114 
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SIZER Supplied Program Date 


4776 072272 
4777 

4778 072276 
4779 072316 


4780 072322 
4781 072324 


4786 
4783 072330 
4784 
4785 072350 
2788 072354 
478 


4790 072360 
4791 072364 
4738 072366 
479 

4794 072374 
aT? 072376 


47% 
4797 072404 


4798 
4799 072406 
4800 072412 
4801 072414 
4802 072434 
480 


4804 072440 
4805 072444 
4806 072446 
4807 072466 
4808 072474 


4809 

4810 072476 
4811 072502 
4812 072504 
4813 072510 
4814 072514 
4815 

4816 

4817 072516 
4818 

4819 072522 
4820 

4821 072536 
rts] 072542 
482 

4824 072544 
4825 072560 
4826 072562 
4827 072566 


4828 
4829 072572 
4830 072576 


4831 
4832 072616 


004737 


022705 
001012 
004737 


004737 
000137 


022703 
001116 
032737 
001076 
122737 
001072 


022705 
001012 


000137 
022705 
001052 
032737 
001434 
013701 


060334 


107602 


002322 


067776 
074424 


060240 


074432 


002336 


002734 


002336 


inobri: 


inbra: 


term: 


tnbr 12: 


tnbri3: 


GMANIL 
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jsr pc .clrDUPbuf 
printf #sfbegt 
cmp #i,r5 
bne inora 

jsr pc .clrDUPbuf 
printf #@sfdont 

ist . typDUPbuf 
te Rédend 
cmp #terminat,r3 
bne ftler 
bit #bit13,untflgs 
bne tnbra 
cmpb #'F ,prgnam 
bne tnbra 
c #12.,r5 
— tnbri3 
printf #sffcut 

jmp ropunt 
cmp #13.,75 
bne tnbra 

rine? #sffent 

it #bit15,untflgs 
beq 2$ 
mov unit,rl 

at eal 

+4,r 

cmp #3, ri) 
bne 2s 
clr alPreg 
bot.con,BO0OT,-1, YES 
tst BOOT 
bne 1$ 
bot .rep,BO00T,-1, YES 
rit Ried 
Jmp ¢c 
Jmp dropunt 

jsr typDUPbuf 
print? Beto” 
jmp etst 


SEQ 0115 


;clear out DUP buffer so there is no 
secho on last ASCII 


number 


secho on last ASCII 
:format complete 


;type out ASCII sent by disk controller 
;do another receive c 


test for termination type 

;if not branch ; 

:see if we are working on a known 
scontroller 

:if not type out ascii 

:if running the format program then 
sbranch to error routine 


;test for sub number #1 
;branch if not sub number #1 


;drop test unit and end pass 


;test for msg number 
sbranch if not right number 


sare we in auto mode 

; NO, then we are all done 
; YES, is this an RX33 

; first cylinder entry 


i* an Rx33? 
; NO, a.i 
; YES, as. 


; reinit the controller stop spurious 
; interrupts 
; Do you want to format another? 


: goles to current unit entry 
i Is 


if it wants to continue or not 


; Yes, execute local program 
; No, tell him to insert bootable media 


Please insert boot media and hit return 


stype out ASCII sent by disk controller 
sprint finished local program without 
sprocedure error 

send DUP diaglog but stay in test loop 
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M9 


.MAIN. MACRO VO5.03 Thursday 15-Jan-87 14:33 Page 44-13 
SIZER Supplied Program Date 


SEQ 0116 


4833 
4834 
4835 072622 022703 000005 ftler: cmp #tlerr,r3 ;test for “Fatal Error” subtype 
4836 072626 001402 beq 1$ 
4837 072630 000137 074104 one spst ;if not branch . 
4838 072634 032737 020000 002336 1%: i iti3,untflgs ;see if we are working on a known 
4839 scontroller Pes 
4840 072642 001004 bne 3$ :if not type out ascii 
4841 072644 122737 000106 002734 ,empb #'F ,prgnam ;if running the format program then 
4842 4 ;branch to error routine 
4843 072652 001414 beq 2$ ‘ 
4844 072654 004737 060240 3$: jsr pc eeatened stype out ASCII sent by disk controller 
4845 072660 printf #0F 1 ;Fatal error reported when running 
4846 ‘ ;local program 
4847 072700 000137 074424 jmp dropunt :;drop unit and end pass 
Pret 072704 2s: ERRHRD 1,HRDO ;sHard device error 
4851 072714 022705 000001 fnbri: cmp #1,75 ;test for sub number #1 
4852 072720 001012 bne fnbr2 sbranch if not sub number #1 
4853 072722 gstsf: i 
4854 072722 printb #¢efstat ;"GET STATUS failure” 
rrr] 072742 000137 074424 jmp dropunt ;drop unit and end pass 
4857 072746 022705 000002 fnbr2: cmp #2.,75 ;test for msg number 
4858 072752 001012 bne fnb-3 ;branch if not right number 
4259 072754 printf #efsndt ; Y 
rho 072774 000137 074424 jmp dropunt :drop unit and end pass 
4862 073000 022705 000003 fnbr3: cmp #3..75 ;test for msg number 
4863 073004 001012 bne fnor4 ;branch if not right number 
4864 073006 printf #efcmdt ; 
see? 073026 000137 074424 jmp dropunt ;drop unit and end pass 
4867 073032 022705 000004 fnbr4: cmp #4..75 ;test for msg number 
4868 073036 001012 bne fnbrS ;branch if not right number 
4869 073040 printf #efrevt : ’ 
4870 073060 000137 074424 jmp dropunt :drop unit and end pass 
4872 073064 022705 000005 fnbrS: cmp #5..75 ;test for msg number 
4873 073070 001012 bne fnbré ;branch if not right number 
4874 073072 printf #efbust ; 
agi? 073112 000137 074424 jmp dropunt :drop unit and end pass 
4877 073116 022705 000006 fnbr6: cmp #6.,75 ;test for msg number 
4878 073122 001012 bne fnbr7 sbranch if not right number 
4879 073124 printf #efinit : 
aahi 073144 000137 074424 jmp dropunt ;drop unit and end pass 
4882 073150 022705 000007 fnbr7: cmp #7.,75 ;test for msg number 
4883 073154 001012 bne fnbr8 sbranch if not right number 
4884 073156 printf #efnut : 
rtf 073176 000137 074424 jmp dropunt ;drop unit and end pass 
4887 073202 022705 000010 fnbr8: cmp #8.,75 ;test for msg number 


4888 073206 001012 


bne fnbr9 ;branch if not right number 
4889 073210 printf #efdxft 
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SIZER Supplied Program Date 
“4890 073230 000137 074424 


4891 
4892 073234 022705 000011 fnbr9: 
4893 073240 001012 

4854 073242 

4895 073262 000137 074424 


73266 022705 000012 fnbr 0: 


4897 0 

4898 073272 001012 

4899 073274 

4900 073314 000137 074424 


4901 
4902 073320 022705 000013 fnbr il: 


4903 073324 001012 
4904 073326 
4905 073346 000137 074424 


4906 
road 073352 022705 000014 fnbri2: 


073356 001012 
4910 073400 000137 074424 


1 
073404 022705 000015 fnbr 13: 


4912 

4913 073410 001012 

4914 073412 

aaie 073432 000137 074424 


4917 073436 022705 000016 fnbri4: 


4918 073442 001012 
4919 073444 
ast 073464 000137 074424 


4922 073470 022705 000017 fnbr iS: 


4923 073474 001012 
4924 073476 
aa52 073516 000137 074424 


4927 073522 922705 000020 fnbrié: 


4928 073526 001012 
sent 073550 000137 074424 


4931 
4932 073554 022705 000021 fnori7: 


4933 073560 001012 
4934 073562 
aane 073602 000137 074424 


4937 073606 022705 000022 fnor18: 


4938 073612 001012 
4939 073614 
4940 073634 000137 074424 


4941 
4942 073640 022705 000023 fnor 19: 
4943 073644 


001012 
4944 073646 
anat 073666 000137 074424 





Page 44-14 

jmp dropunt 
c #9.,975 
bne fnbr 0 
printf #effcct 
jmp dropunt 
c #10.,r5 
~ fnobril 
printf #efsekt 
jmp dropunt 
c #11.,r5 
_ fnbri2 
printf #efrect 
Jmp ropunt 
c #12. ,75 
— fnbri3 
printf #eflbft 
jmp dropunt 
c #13.,r5 
one fnbri4 
printf #effcwt 
jmp dropunt 
Cc #14.,r5 
~ fnbr 15 
printf #efrert 
jmp dropunt 
c #15.,75 
om fnbr16 
printf #efrcwt 
jmp dropunt 
c #16.,75 
oa fnbr17 
printf #efrcft 
jmp dropunt 
c #17.,75 
~ fnbri8 
printf #effert 
jmp dropunt 
cmp #18.,r5 
bne fnbri9 
printf #effcnt 
jmp dropunt 
c #19. ,75 
bas nbre 
printf #effcdt 
Jmp opunt 


;drop unit and end pass 


;test for msg n 
sbranch if not anont number 


sérep unit and end pass 


;test for msg numbe 
sbranch if not right number 


sérep unit and end pass 
;test for msg number 


_3branch if not right number 


sérep unit and end pass 


;test for msg number 
:branch if not right number 


sérep unit and end pass 


;test for msg number 
;branch if not right number 


sdrop unit and end pass 


;test for msg number 
:branch if not right number 


eres unit and end pass 


;test for msg number 
ibranch if not right number 


sérep unit and end pass 


;tesi for msg numbe 
ibranch if not rignt number 


sérep unit and end pass 


;test for msg number 
sbranch if not right number 


sérep unit and end pass 


;test for msg number 
ibranch if not right number 


sires unit and end pass 


;test for msg numbe 
branch if not right number 


‘dre unit and end pass 


SEQ 0117 
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SAIN. "RCRD ¥OS.08 
SIZER Supplied Progrse Oats 


4955 073752 
4956 

4957 073756 
4958 073762 


4959 073764 
4960 074004 
496 


1 
4962 074010 
4963 074014 
4964 074016 
4965 074036 
4966 


4967 
4968 074042 
4969 074046 
4970 074050 
4971 074070 
4972 


4973 074074 
4974 074100 


4979 074104 
4980 074110 
4981 074112 
4982 

4983 074120 
4984 074122 
4985 

4986 074130 


4987 074132 
4988 074136 


4989 

4990 074156 

4991 

4992 074162 

4993 074166 

4994 074170 

4995 074174 
074174 


074202 


074232 


022705 
001012 


000137 


022705 
001012 


000137 


022705 
001012 


000137 


022705 
000412 


000137 
022705 
001012 
000137 


004737 
000137 


022703 
001137 
032737 
001004 
122737 
001414 
004737 
000137 
022705 


- : 


074424 


074424 
000026 


074424 
000027 


074424 | 


000030 


074424 


060240 
074424 


000006 
020000 


000106 


060240 


074410 
000002 
057240 
100000 


fnor2i: 


fnbr22: 


fnbr23: 


fnbr24: 


SOT20: 


#20. ,°5 ;test for msg cumber 

fnor2i sbranch if not right number 
seftmot $ 

dropunt ;drop unit and end pass 
#21.,75 ;test for msg number 

fnbr22 sbranch if not right number 
#efillt ; ; 

dropunt ;drop unit and end pass 
#22. ,75 ;test for msg number 

fnbr23 sbranch if not right number 
#efwart ; 

dropunt :drop unit and end pass 
#23. ,75 ;test for msg number 

fnbre4 sbranch if not right number 
tefinpt ; 

dropunt ;drop unit and end pass 

+ ia stest for msg number 
tefmedt 

dropunt ;drop unit and end pass 

pc, typDUPbuf stype out ASCII sent by disk controller 
dropunt ;drop unit and end pass 


#specl,r3 ;test for special type 

urlcaen sbranch if not known 

#bit13,untflgs ;see if we are working on a known 
;controller 

2$ :if not type out ascii 

#'F ,prgnam ;if running the format program then 

“ sprint info 

eS rout stype out ASCII sent by disk controller 

#0F 1 sspecial command issued by local 
;program did not know how to handle 

unkwn ;report error 

#2,75 ;test for mess number 1 

unkwn sbranch if not known 

sblduit 390 get or build UIT table 

ITadr, #UITsiz ;sent Unit Information table 

#b i t15,cmdrng+2 ESOS geerenep of ring make sure we 
;Own ij 

SDT20 ;if we don't own it wait until we do 

#34,cmdlen sload length of packet to be sent 

#0,cmdlen+2 ;load msg type and credit 

#dup.id,cmdlen+3 ;load DUP connection ID 

ak ;load new CRN 


cmdp 
cmdpak +2 
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074372 
074400 


4996 974404 
4997 


4998 
4999 074410 
5000 074410 
5001 074420 
5002 


5003 074424 
5004 074424 
5005 


5006 074432 
5007 074432 
5008 074434 


012777 
004737 
000137 


004737 


Data 


105726 
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#bitis, EMORNG +2 2 
3c. POLLAT 


;load up opcode 
;no aad lane 


sload address of buffer descriptor 


;New vector place 

;load response packet area into ring 
;load command packet area into ring 
:Port ownership bit. 


;Go to poll and wait routine. 


5 RARER AEEEEASRRRERERARAEEREARRAEREEEAEARAAERAEAARAREAAAAAAEARAAAALEE 


RFD20: 
add 


mov 
jst 


jmp 


#6,.Sp 


#intsrv,@vector 
pc .RSPCHK 


RCDcmd 


0,SFO. 


~ 


LOGUNIT 


sIntr to here. 

;fix stack for interrupt (4), pollwt 
;subrtn (2) 

;Change vector 

;Go to routine that will check on 
;the response recvd from the mut. 

zit will check the cmd ref 

inum, the endcode and status. 

;do another receive cmd 


; system error unknown response 
;type out packet information 


;drop the unit 


;take controller offline 


SEQ 0119 
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SIZER Supplied Program Data 


SEQ 0120 


5010 074436 
rt 074440 


1 
5022 074460 
5024 074466 
5025 
5026 
5027 074470 
5028 
5029 
5030 
5031 074476 
5032 


5033 
5034 074500 
5035 


5037 ? 
5038 074519 
5039 


5040 
5041 
5042 
5043 074524 
5044 
5045 074524 
5046 074526 
5047 
5048 
5049 074526 


074532 
5050 074532 
5051 


000001 


BGNHROD 
' GPRMA ip.adr.0,0,160000,177776, YES 


GPRMA vec.adr,2,0,0,776, YES 


GPRML tst.dsk,10,bit12, YES 


XFERT labelO 


GPRML auto.md,10,bit15, YES 


XFERF labelO 


GPRMD drv.nbr,4,0,-1,0,255., YES 


GPRMD ser .nor,6,0,-1,1,012345. YES 


labelO: 
exit hArd 
ENDHRD 
LASTAD 


LS$LAST:: 
ENDMOD 
.END 


;Get IP reg addr (170000-177776) 
place in word 2 of the table 
;default value is from default 
:table. 


;Get the vector addr (octal 0-776) 
place in word 

;default value is from default 
;table. 


:ask if they want to test floppy 


;1f last rml t is true (y) 
2 ll A eR Label” 7 


sask if re want to go into auto mode 
;This will format the "rie using 
;the autosizer 


:If last gprml input is false (n) 
;transfer control to label. 


;Get the logical drive (DECIMAL 0-255) 
place in word. fault value is from 
;default table. 


iGet the drive serial number 


place in word. fault value is from 
Bef ault table. 
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Symbol table 
A = 
ABORT 065632 
ABRTS 052456 
ADR = 000020 G 
ASCDEC 132 
ASK.AN 021272 
ASK.DB 00671 
ASK.LB 006772 
ASK.PR 006576 
ASK.RB 007045 
ASK . XB 
ASMSGR 
ASMSGT 53 
ASMSGi 005755 
ASMSG2 0062 
ASMSG3 006301 
ASMSG4 006363 
ASMSGS 006433 
ASMSG6 006505 
ASMSG7 3 
ASMSG8 006110 
ASMSG9 006174 
AS = 000010 
AUTO 055034 G 
AUTOBL 057556 
AUTODI 056172 
AUTOEN 056172 
AUTUSI 054334 
AUTOSZ 055010 
O.M 004326 
= 000020 
= 000001 G 
= 000001 G 
= 000002 G 
= 000004 
= 000010 G 
= 000020 G 
= 000040 G 
= 000100 G 
= 000200 G 
= 00 G 
= 001000 G 
= 2G 
= 002000 3 
= 010000 G 
= 020000 G 
. G 
= 1 G 
064316 
= 000010 G 
= 000020 G 
= 000100 G 
= 000200 G 
= 000400 G 








C$GPRI= 
CsINIT= 


001000 G 
057240 
000400 G 


DATARE 
DATOFF = 


000000 
052624 
053236 G 


DOFSEK 053270 G 
D * 03021 





0662 
073450 
056064 G 


il | 


022107 
0232"1 


SEQ 0121 


F10 
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SEQ 0122 
Symbol table 
FPRPT 050300 GSRADA= 000140 LKS = 177546G L$SPTP 002024 G ME8i1 025417 
FRPTB 007120 GSRADB= 000000 LKSVCT= 000100 G L$STA 002030 G ME812 025451 
FILER 072622 GSRADD= 000040 .SE 052700 G L$TEST 002114 G ME813 025503 
| FTLERR= GSRADL= 000120 LKVEC = 000100 L$ 002014 G ME814 025534 
FSAU = 000015 GSRADO= 000020 LOCAL 002312 LSUNIT 002012 G ME815 025567 
| FSAUTO= G$XFER= LOE = 04 00 ME82 025132 
FSBGN = GSYES = 000010 L 002310 L10002 ME83 025155 
FSCLEA= 000007 002604 LOLBN 002552 L10003 065644 025203 
FSDU = 000016 HEXAL = 000241 L I 002546 L10004 ME87 
FSEND = 1 HEXFE = 000376 LOT = 000010 G L10005 065716 ME 38 025302 
F $HARD= HEXF8 = 000370 002542 L 074434 ME89 025333 
F$SHW = 000013 2554 LSTCRN 002540 L10007 074526 56 
FSINIT= HIPRGI 002550 LSTVCT 002544 MANBLD 057254 ME91 025657 
FSJMP = 000050 = G L$ACP 002110 G MAXDRV= ME92 025710 
FSMOD = HRDINT 051522 LSAPT 002036 G HLB 002560 ME93 025733 
F$MSG = 000011 12777 L$AUT 002070 G MAXLLB 002556 ME94 025771 
FSPROT= 000021 IBE = 010000 G L$AUTO 065636 G MCONBR 002342 MESS 026026 
FSPWR = 000017 IDU = 000040 G LSCCP 002106 G MDLNBR 002340 MOD1 002000 G 
FSRPL = 067552 ID.TAB= 100066 LSCLEA 065646 G MEAL 026063 MRQDX1= 000007 
FSRPT = 000012 E = 0 L 002032 G MEA2 026130 MRQDX3= 2 
FSSEG = 000003 INBRA 072350 L$DEPO 002011 G MEAS 026146 MSCPEN 027524 
F$SOFT= INBRO 07 L$DESC 002126 G 026222 MSCPGU 60 
FSSRV = 000010 INBR1 072316 L$DESP 002076 G MEAS 026251 MSCPON 027712 
F$SUB = 000002 INF ORM= LSDEVP 002 ME A6 026325 MSCPOP 
F$SW = 000014 072236 L$DISP 002124 G MEA7 026402 MSCPRD 027736 
FSTEST= 000001 INTSRV L$DLY 002116 G MEAS MSCPSC 027637 
BADB= IPREG 002324 L$DTP 002040 G MEAQ 026531 MSCPST 027463 
F .BADS= IP. ADR 144 LSDTYP 002034 G MEB1 026565 MSCPWR 027757 
F .CONT= 000010 ISR = 000100 G MEB10 027242 MSCP .I= 
F .CURC= IXE = L$DUT 002072 G MEB11 027311 MSECA = 007570 
F.MAN = 000012 ISAU = 000041 L$DVTY 002160 MEB12 027357 MSEND 056126 
F .MODE= ISAUTO= 000041 LSE 002052 G MEB13 027426 MSG G 
GOSCMD 052272 ISCLK = 100006 LSENVI 002 G 2 026626 MSGDAT 056160 
ISCLN = 000041 LSE 002102 G MEBS 026701 MSGLEN= 4 
052272 sDU. = 000041 LSEXP1 002046 G MEB4 026726 MSGNBR= 170000 
GETBLO= $ = 000041 LSEXP4 002064 G MEBS 027014 
TINP= 071222 ISINIT= 000041 LSEXPS5 2066 G MEB6 027052 MSWAIT 056102 
GETMAN 053536 $ = 000041 L$HARD 074440 G MEB7 027117 0 
053702 MSG = 000041 L$HIME 002120 G MEB8 56 NHDW1 070462 
GETMLP 053610 ISPROT= 000040 L$HPCP 002016 G ME10 023507 NHDW2 070214 
GE TMNX ISPTAB= 000041 L$HPTP 002022 G ME20 023533 = 
GETSEC= 071142 ISPWR = 000041 L$HW 002276 G ME3O 023557 RK1 066764 
GOBIT 052256 ISRPT = 1 L$ICP 002104 G ME31 023651 NXTTIM 002576 
GSTSF 072722 ISSEC = 100016 L$INIT 065404 G ME32 023731 OCTASC 
GC $SEG = 1 L$LADP 002026 ME34 023767 066276 
GSCNTO= 2 ISSETU= 000041 L$LAST 074532 G ME38 04 OP . ABR= 
GSDELM= 000372 ISSRV = 000041 L$LOAD 002100 ME40 024141 OP .ELP= 3 
GSDISP= 000003 I$SUB = 000041 L$LUN 002074 G MESS 024175 ND= 000200 
GSEXCP= 000400 ISTST = 1 LSMREV 002050 G MES6 024263 OP .ESP= 2 
GSHILI= 000002 = 100002 NAME 002 G MES7 024347 OP .GDS= 000001 
G$LOLI= 000001 I.CYL = 000036 L$PRIO 002042 G MES8 46 OP .GUS= 000003 
G$NO = 000000 I.SPOT= 000106 L$PROT 065376 G MES9 4557 OP .ONL= 000011 
GSOFFS= I.SUR = 000034 L$PRT 002112 G ME6128 024701 OP.RD = 000041 
GSOFSI= 000376 JMP11 7564 LSREPP 00206 024754 OP .REC= 000005 
GSPRMA= 1 = 167 LSREV 002010 G ME70 025027 OP.RT = 000133 
G$PRMD= 000002 LABELO 074524 L$SPC 002056 G ME80 025051 OP .SCC= 
GSPRML= 000000 LBN 002771 L$SPCP 002020 G ME810 025364 OP .SEN= 000004 








G10 
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000100 
000042 
067532 
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071134 


R$DAT = 
RSFPS = 


SVCTAG= 


052730 G 
066062 


oO 
ui 
uw 
~J 
cea) 
ov 
o 


177777 
177777 


SVCTST= 
S$LSYM= 


TRP100 


177777 
010000 


051172 





SEQ 0123 


re LD cali 
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SEQ 0124 

Symbol table 

TSTORV 065762 T$PTHV= #&sea4% GX T1 - 065720 G UNTDSZ= 000002 WSFPL = 140004 

TST.DS 004261 T$PTNU= 000000 UAM = 000200 G UNTFLG 002336 XBN 002743 
TYPASC 020561 T$SAVL= 177777 UDC.FL= 100234 UNT.NB 006534 X$ALWA= 000000 
TYPDUP 060240 T$SEGL= 177777 UIBOFF= 000000 UPDT11 067456 X$FALS= 000040 
TYPE = 177760 T$SIZE= s&eae4 GX UIBSIZ= 001004 USMODE= 000070 X$OFFS= 000400 
T$ARGC= 000001 T$SUBN= 000000 UIN 002344 USOP.S= 000072 X$TRUE= 000020 
T$BUFF= 000044 T$SURF= 000032 UITADR 002320 U.DD = 000001 YES = 1 
TSCODE= 001004 T$TAGL= 177777 UITDF 004040 U.RD = 000003 $DEQ.H= 044730 
TSCYLI= 000030 T$TAGN= 010010 UITLOC 060010 U.RES = $ENQ.H= 044640 
TSERRN= 000000 T$TEMP= 000000 UITOTH= 000010 U.SI1 = 000005 $2 065570 
TSEXCP= i$TEST= UITSIZ= 000104 U.SO1 = 000007 $3 065610 
T$FLAG= 000041 T$TSTM= 177777 UITO 003000 U.SRD = $ 065624 
TS$FREE= seaaaa GX T$TSTS= 000C#1 VIT1 003104 U.SRP = 000100 A.DEF= 
T$GMAN= 000000 T$UCB = UIT2 003210 U.SRX = 000054 A.FAT= 000120 
T$HILI= 030071 T$$AUT= 010003 UIT3 003314 VECTOR 002326 A. INF= 
T$LAST= 000001 ~~" T$$CLE= UIT4 003420 004 = 000020 
T$LOLI= 000001 T$$DU = 010005 UITS 003524 WARNIN 7 A.TER= 000100 
T$LSYM= 010000 T$$HAR= 010007 UIT6 003630 WRNGST 052216 A.TYP= 20 
T$LTNO= 1 T$$HW = 010000 UIT? 003734 WRT12 066770 -B.SPL= 000140 

$NEST= 177777 T$$INI= 010002 UNIT 002330 WSCMD = 140022 -PCB = 102656 
T$NSO = 000000 T$$PRO= 010001 UNKWN 074410 WSDAT = 140020 -PKT = 105646 
TS$NS1 = 000004 T$$TES= 010006 
. ABS. 074532 000 (RW,I,GBL,ABS,OVR) 
000000 001 (RW,I,LCL,REL,CON) 


Errors detected: 0 


saa Assembler statistics 


Work file reads: 527 

Work file writes: 503 

Size of work file: 45192 Words ( 477 sree 
Size of core pool: 19684 Words Pogee? 
Operating ume RSX-11M/PLUS (Under AX/VMS ) 


Elapsed time: 
Sere ACEO .Csis SP <SVCSSR/ML, ZRQCEO. MAC 


